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Preface to the First Edition 


This book is designed to help students and professionals who use mathematics in their daily routine to learn 
Mathematica, a computer system designed to perform complex mathematical calculations. My approach is 
simple: learn by example. Along with easy to read descriptions of the most widely used commands, I have 
included a collection of over 750 examples and solved problems, each specifically designed to illustrate 
an important feature of the Mathematica software. 

I have included those commands and options that are most commonly used in algebra, trigonometry, 
calculus, differential equations, and linear algebra. Most examples and solved problems are short and to the 
point. Comments have been included, where appropriate, to clarify what might be confusing to the reader. 

The reader is encouraged not only to replicate the output shown in the text, but to make modifications 
and investigate the resulting effect upon the output. I have found this to be the most effective way to learn 
the syntax and capabilities of this truly unique program. 

The first three chapters serve as an introduction to the syntax and style of Mathematica. The structure 
of the remainder of the book is such that the reader need only be concerned with those chapters of interest 
to him or her. If, on occasion, a command is encountered that has been discussed in a previous chapter, the 
Index may be used to conveniently locate the command's description. 

Without a doubt you will be impressed with Mathematica's capabilities. It is my sincere hope that you 
will use the power built into this software to investigate the wonders of mathematics in a way that would 
have been impossible just a few years ago. 

I would like to take this opportunity to thank the staff at McGraw-Hill for their help in the preparation 
of this book and to give a special note of thanks to Mr. Joel Lerner for his encouragement and support of 
this project. 

EUGENE DON 
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Preface to the Second Edition 


The recent introduction of Mathematica 6 and Mathematica 7 has brought significant changes to many 
of the commands that comprise the language. A complete listing of all the changes can be found in the 
Documentation Center that is included with your program. Most notably: 


ш Some of the menus and dialog boxes have changed. These changes are mostly cosmetic and should 
not cause any confusion. 


= Тһе Basiclnput palette has been renamed Basic Math Input. 


ш Graphics output was enhanced in version 6. Consequently plots, particularly three-dimensional plots, 
may look slightly different from those in previous versions. 


ш In versions 4 and 5 a semicolon (;) was used merely to suppress an annoying line of output when 
executing graphics commands. In versions 6 and 7, the semicolon suppresses graphics output com- 
pletely and must therefore be deleted when using commands such as Plot, Plot3D, Show, etc. 
Furthermore, since the semicolon may now be used to suppress graphics, DisplayFunction э 
Identity andDisplayFunction > $DisplayFunction are no longer needed. 


= Some of the commands that had previously been supplied in packages (and had to be loaded prior to 
use) are now included in the kernel and may be used without invoking Needs or ««. Some of the 
commands are located in different packages, and some of them are available by download from the 
Wolfram website. 


ш Some of the commands in version 5 have been eliminated and put into "legacy" packages, included 
with Mathematica 6 and 7. They will have to be loaded prior to using them. 


ш Some of the commands (e.g., ImplicitPlot) have been eliminated and their functionality has 
been incorporated into other commands (e.g., Cont ourP1ot). 


= Animation has been significantly enhanced with the introduction of Animate and Manipulate. 


A tool has been incorporated into Mathematica that will scan notebooks written using older versions 
of the software. Any incompatibilities are flagged and suggestions for correcting them are automatically 
generated. 

This second edition incorporates all of these changes in the command descriptions, examples, and solved 
problems. In addition a comprehensive list of commands used in the book, together with their descriptions, 
is conveniently located in the appendix. 

The manuscript for this book was proofread several times and all the examples and solved problems have 
been checked for accuracy. If you should come across a mistake that has not been caught, or would like to 
share your thoughts about the book, please feel free to send an e-mail to 

mathematica.corrections@gmail.com 

I hope you will find this book helpful in navigating through Mathematica. I would like to thank Professor 
John-Tones Amenyo of York College for his help in highlighting those parts of the text that required 
modification. 

EUGENE DON 
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Getting Acquainted 


1.1 Notation and Conventions 
M athematica is a language that is best learned by experimentation. Therefore, the reader is urged to try as many 
examples and problems as possible and experiment by changing options and parameters. In fact, this chapter 
may be considered a tutorial for those readers who want to get their hands on M athematica right away. 

New commands are introduced with a w bullet, and options associated with them are bulleted with 
a • symbol for easy reference. 

In keeping with M athematica's conventions, all commands and instructions will be written in Courier 
bold face type and M athematica output in Courier light face type. 


Thislineis writtenin Courier boldfacetype. 
This lineis written in Courier light face type. 


Menu commands in this text are described using double arrows (—). For example, 
Format = Style = Input, written in A rial font, means go to the "Format" menu, then to the "Style" 
submenu, and then click on "Input." 


5 Wolfram Mathematica 7.0 - [Untitled-1] 
File Edt Insert | Format Cel Graphics Evaluation Palettes Window Help 
Style Title 
Clear Furman — Slift--CulrSuaue Subtitle 
Upton Inspector... Shift-+Ctr+0 Subsubtitie 
Е Section 
Subsection 
Subsubsection 
Text 


El Untitled-1 


Styleshect 

Sureeii Еітуігіл іше 4. 
Edit Stylesheet... 
Font... Code 
Face Input 
Size Output 
Text Color Шет 


Background Color TtemParagraph 
Cell Dingbat Subitem 
SubitemParaqraph 
TremNiimhered 


Text Alignment 
Text Justification 
Word Wrapping 


SubitemNumbered 

Inline ormula 
DisplayFormula 
DisplayFormulaNumbered 
Program 


Other... 


Mathematica occasionally uses a special symbol, `, which we call a backquote. Do not confuse this 
with an apostrophe. 

Finally, most M athematica commands use an arrow, —, to specify options within the command. Y ou may use 
-»(- followed by >) as an alternate, if you wish. M athematica will automatically convert this sequence to >. In 
a similar manner, the sequence != is automatically converted to +, <= is replaced by <, and >=is changed to >. 
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The examples used in this book were executed using M athematica versions 6 and 7. Y ou may notice 
some differences on your computer if you are using earlier versions of the software. M ost noticeably, 
graphics, particularly three-dimensional graphics, have been enhanced in the later version and many com- 
putational algorithms have been improved, resulting in greater efficiency and speed. 


1.2 The Kernel and the Front End 

The kernel is the computational engine of M athematica. You input instructions and the kernel responds 
with answers in the form of numbers, graphs, matrices, and other appropriate displays. The kernel works 
silently in the background and, for the most part, is invisible. 

The interface between the user апа the kernel is called the front end and the medium of the front end is 
the M athematica notebook. The notebook not only enables you to communicate with the kernel, but is a 
convenient tool for documenting your work. 

To execute an instruction, type the instruction and then press [ENTER]. M ost PCs have two [ENTER] 
keys, but only the [ENTER] key to the far right of the keyboard will execute instructions. The other 
[ENTER] key must be pressed with the [SHIFT] key held down; otherwise you will merely get a new 
line. This is especially important if you are using a laptop. If you are using a M acintosh computer, do not 
confuse the [ENTER] key with the [RETURN] key. 

The picture in Example 1 shows the standard Mathematica display. The symbols on the 
right-hand side form the Basic Math Input palette and allow access by mouse-click to the 
most common mathematical symbols. (If you don't see the palette on your screen, click on 
Palettes = BasicMathlInput or Palettes = Other = Basic Math Input and it should appear.) Other 
palettes such as Basic Math Assistant and Classroom Assistant (version 7 and above) are availablefor 
specialized purposes and can be accessed via the Palettes menu. 

Each symbol is accessed by clicking on the palette. If you use the palette, your notebooks will look like 
pages from a math textbook. M ost examples in this book take full advantage of the Basic Math Input 
palette. However, each M athematica symbol has an alternative descriptive format that can be typed " manually." 
For example, x can be represented as Рі and v5 can be written Sqrt [5]. These representations аге 
useful for experienced M athematica users who prefer not to use the mouse. 

The notebook in Example 1, labeled “Untitled—1,” is where you input your commands and where 
Mathematica places the result of its calculations. The picture shows the input and output of Example 1. 
(The display on a M acintosh computer will look slightly different.) 


EXAMPLE 1 Add 2 and 3. 


* Wolfram Mathematica 7.0 - [Untitled-1 *] 
File Edit Insert Format Се! Graphics Evaluation Palettes Window Help 


EJ Untitled-1 * 


г[1]= 


Oui] 5 


bPeqrn eas lx a 
on # ШЕ з < sort + 

48 mw фсе xo X c 

PEAR = Сү ds 


я 
о 
a 
s 
в 
п 
“" $5 5G0x9»25m3iso 
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Notice that the kernel has assigned "In[1]" to the input expression and "Out[1]" to the output. This 
enables you to keep track of the order in which the kernel evaluates instructions. T hese labels are impor- 
tant because the order of evaluation does not always correspond to the physical position of the instruction 
within the notebook. In this book, however, we shall not include "In" and "Out" labels in our examples. 

In working out the examples and problems in this book, you may find that your answers do not agree 
with the answers given in the text. This may occur if you have defined a symbol to have a specific value. 
For example, if x has been defined as 3, all occurrences of x will be replaced by 3. You should clear the 
symbol (see Section 1.5) and try the problem again. All examples and problems assume that symbols have 
been cleared prior to execution. 

You can work on several different notebooks in a single M athematica session. H owever, if you are using 
only one kernel, changes to symbols in one notebook will affect identical symbols in all notebooks. 

There are times when you may wish to evaluate only part of an expression. To do this, select the 
portion of the expression you wish to evaluate. Then press [CTRL] + [SHIFT] + [ENTER] on a PC or 
[COMMAND] + [RETURN] on a M ac. 


EXAMPLE 2 Suppose we wish only to perform the multiplication in the expression 2 « 3 + 5. 
Firstselect2 * 3: 


2 * 3 · 5 

Then press [CTRL] + [SHIFT] + [ENTER] (PC) or [COMMAND] + [RETURN] (M ac). 

645 

A semicolon (;) at the end of a Mathematica command will suppress output. This is useful in long sequences of 
calculations when only the final answer is important. 


EXAMPLE З Suppose we wish to define a = 1, b = 2, с = 3 and then display their sum. Here аге two ways to write 
this problem. 


а=1 а=1; 
һ -2 һ-2; 
с-3 c =3; 
a+b+c a+b+c 
1 6 

2 

3 

6 


Occasionally you may introduce an instruction that takes an excessively long time to execute, or you 
may inadvertently create an infinite loop. To abort a calculation, go to Evaluation — Abort Evaluation. 
Alternatively, you may press [AET] + [ -] to abort ((COMM AND] + [7] оп the M acintosh). On the rare 
occasion when this does not work, you will have to terminate the kernel by going to Evaluation = Quit 
Kernel — Local. However, by doing so, you will lose all your defined symbols and values. Y our M ath- 
ematica notebook will not be lost, however, so they can easily be restored. 

As with all computer software, there are times when Mathematica will crash completely. The only 
remedy is to close M athematica and reload it. On rare occasions, you may have to reboot your computer. 
In either event, your notebook changes will be lost. It is therefore extremely important to back up your 
notebook often! 

Finally, there may be times when you wish to include comments within your M athematica commands. 
Anything written within ( * and* ) is ignored by the M athematica kernel. 


EXAMPLE 4 


12 + («+ these words will be ignored by the kernel ж) 3 
15 
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SOLVED PROBLEMS 


L1 Multiply 12 by 17 and then add 9. 
SOLUTION 
12%17%9 
213 


12 Multiply the 12 by 17 in Problem 1.1, but do not add the 9. 


SOLUTION 

12 * 17 <Select12 * 17 with the mouse. 

Press [CTRE] + [SHIFT] + [ENTER] or [COMMAND] + [RETURN] on a M ac. 
20479 


13 The following program is an infinite loop. Execute it and then abort the evaluation. 
х= 1; 
While[x>0, x =x * 1] 
SOLUTION 
x=1; 
While[x>0, x =x * 1] 
[ALT] + . 
SAborted 
L4 Multiply 17.2 by 16.3 and then add 4.7. 
SOLUTION 
17,2% 16,3 44,7 
285.06 
15 Multiply 17.2 by the sum of 16.3 and 4.7. 
SOLUTION 
17.2* (16.3 44.7) 
361.2 
L6 Compute the sum of 2x + 3, 5x + 9, and 4x + 2. 
SOLUTION 


(2x +3) +(5x +9) + (4x +2) 
14 +11х 


1.3 Mathematica Quirks 
Mathematica is case sensitive. 


For example,| nt egrat e andi nt egrat e аге different. All M athematica-defined symbols, commands 
and functions begin with a capital letter. Some symbols, such as Fi ndRoot , use more than one capital 
letter. To avoid conflicts, itis a good idea for all user-defined symbols to begin with a lowercase letter. 


Different brackets are used for different purposes. 


e Square brackets are used for function arguments: Si n[ x] notSi n(x). 
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• Round brackets are used for grouping: (2 + 3) * 4 means add 2 +3 first, then multiply by 4. Never 
type[ 2 * 3] «4. 
e Curly brackets are used for lists: (1, 2, 3, 4). Moreaboutlists in Chapter 3. 


UseE, note, for the base of the natural logarithm. 


Since every Mathematica symbol begins with a capital letter, the base of the natural logarithm is E. This 
causes a bit of confusion, so be careful. Similarly, 1 (not i) is the imaginary unit. The symbols e and i 
from the Basic Math Input palette may be freely used if desired. 


Polynomials are not written in "standard" form. 


M athematica writes polynomials with the constant term first and increasing powers from left to right. 
Thus, the polynomial x? + 2x - 3 would be converted to -3 + 2x + x?. To see the expression in a more 
conventional format, the command Tr adi t i onal For m may be used. 


» Traditional For ml expression] prints expression in a traditional mathematical format. 


EXAMPLE 5 Evaluate the sum of x? + 3, 2x + 5, and x? + 2 and express the answer using TraditionalForm. 
(х2+3) $(2x $5) +( x14 2) 


10+2х+х?°?+х? 
Traditional Form[(x?+3) +(2x +5) +(x?+2)] 
х\+х?+2х +10 


SOLVED PROBLEMS 


17 Compute v81 using theSqrt function. What happens if you do not use a capital "S"? 
SOLUTION 
Sqrt[81] 
9 
sqrt[81] 
sqrt [81] < Mathematica does not recognize the (undefined) symbol sqrt. 
1.8 Use parentheses to multiply the sum of 2 and 3 by the sum of 5 and 7. W hat happens if you use square 
brackets? 
SOLUTION 
(2+3)(5+7) 
60 
aen : 
Syntax::sntxb : Expression cannot begin with '[2+3][5+7]". 
Syntax ::tsntxi : "[2+3]" is incomplete; more input is needed. 
Syntax::sntxi : Incomplete expression; more input is needed. 


19 Usethe Si n function to compute sin(1/2). W hat happens if you use round parentheses? 
SOLUTION 


Sin[Pi/2] or Si n[ m/ 2] 
1 
Si n( Pi / 2) 


Sin Mathematica thinks you want to multiply 
лз. the symbol Si n by тапа divide by 2. 
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110 Alexistyped[ 4 + 1] * [6 + 2] during a Mathematica session. Why didn't she get an answer 
of 40? 


SOLUTION 
Square brackets cannot be used for grouping. Round parentheses must be used. 


111 Why didn'tAriel get an answer of 3 when she typed sqrt [9]? 
SOLUTION 


M athematica functions must begin with a capital letter. 


112 Why didn't Lauren get an answer of 1 when she typed Cos ( 0) ? 
SOLUTION 
Square brackets, not round parentheses, must be used to contain arguments of functions. 


1.4 Mathematica Gives Exact Answers 

Mathematica is designed to work as a mathematician works: with 100% precision. Y ou do not get the 
10- or 12-digit numerical approximation a calculator would give, but instead get a symbolic math- 
ematical expression. 


EXAMPLE 6 
у 12 
248 


EXAMPLE 7 


1/3 + 3/5 - 5/7 +2/[11 


463 
1115 


EXAMPLE 8 


NET 
PR 


EXAMPLE 9 
JT 


i 


SOLVED PROBLEMS 


113 Simplify 4/2 + 4/8 + 4/18. 
SOLUTION 
J42 + 48 + 4/18 or  Sqrt[2] + Sqrt[8] + Sqrt[18] 
6 42 
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L14 Compute the sum of the reciprocals of 3, 5, 7, 9, and 11. 


SOLUTION 

1,1,1,1,‚ 1 

+++ dp or 13+1/5+1/7+1/9+1/11 
3043 

3465 


115 Compute the square root of x exactly using the Sqrt function. 
SOLUTION 
Sqrt[Pi] 


үл « This is the only way to represent the square root of exactly. 
116 Multiply v8 by J2. 
SOLUTION 


V8 V2 ог Sqrt[8] * Sqrt[2] 
4 


1.17 Simplify J/3 + 4/2 + 4/27 + /48 leaving your answer in radical form. 
SOLUTION 
V3 + 412 + J27 + V48 
10 V3 


1.5 Mathematica Basics 


In this section we discuss some of the simpler concepts within M athematica. Each will be explained in 
greater detail in a subsequent chapter. 

Symbols are defined using any sequence of alphanumeric characters (letters, digits, and certain special 
characters) not beginning with a digit. Once defined, a symbol retains its value until itis changed, cleared, 
or removed. 

Arithmetic operations are performed in the obvious manner using the symbols +, -, %, 
and /. Exponentiation is represented by a caret, ^, so x^y means x’. J ust as in algebra, a missing symbol 
implies multiplication, so 2a is the same as 2*a. Be careful, however, when multiplying two symbols, 
since ab represents the single symbol beginning with a and ending with b. To multiply a by b you 
must separate the two letters with ж or x (on the Basic Math Input palette) or a space: ax b, ax b, 
orab. 


EXAMPLE 10 


N otice that the result of each calculation is displayed. This is sometimes annoying, and can be sup- 
pressed by using a semicolon (; ) to the right of the instruction. 
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EXAMPLE 11 


Operations are performed in the following order: (a) exponentiation, (b) multiplication and division, (c) addition 
and subtraction. If the order of operations is to be modified, parentheses, ( ) , must be used. Be careful not to use [ ] 
or { } for this purpose. 


EXAMPLE 12 
243% 5 
17 
(2+3) *5 
25 


Each symbol in М athematica represents something. Perhaps it is the result of a simple numerical calculation or it 
may be a complicated mathematical expression. 


EXAMPLE 13 
a=3} 
=- |X? +1, 
; 2x + 3’ 


Here, a is asymbol representing the numerical value 3 and b is asymbol representing an algebraic expression. 


If you ever forget what a symbol represents, simply type? followed by the symbol name to recall its 
definition. 


EXAMPLE 14 (continuation of Example 13) 


7а 


Global'b 


І1-х2 
ВЕ 3+2 х 
To delete a symbol so that it can be used for a different purpose, the СІ ear orthe Remove command 
can be used. 


= Clear[symbol] clears symbol's definition and values, but does not clear its attributes, messages, or 
defaults. symbol remains in M athematica's symbol list. Typing symbol =. will also clear the definition 
of symbol. 

в Remove[ symbol] removes symbol completely. symbol will no longer be recognized unless it is 
redefined. 


Y ou may have noticed that when you begin to type the name of a symbol, it appears with a blue font until 
itis recognized as a M athematica command or symbol (possibly user-defined) having some value. Then it 
turns black. If the symbol is cleared or removed, all instances of the symbol turn blue once again. 

Parentheses, brackets, and braces remain purple until completed with a matching mate. Errors caused 
by having two left parentheses, but only one right parenthesis, for example, can be conveniently spotted. 
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EXAMPLE 15 (continuation of Example 13) 


Cl ear[a] 
7а < ? a recalls information about the symbol a. 


Global'a 


Remove[b] 
?b 
Information :: notfound : Symbol b not found. >> 
(Clicking on >> gives more information about the error.) 
TheN command allows you to compute a numerical approximation. 


= N[expression] gives the numerical approximation of expression to six significant digits (M athematica's 
default). 
= N[expression, n] attempts to give an approximation accurate to n significant digits. 


A convenient shortcut is to use/ / N to the right of the expression being approximated. Thus, 
expression] | N is equivalent to N[ expression] . | | can be used for other Mathematica commands 
as well. 


= expression | | Command is equivalent to Command| expression]. 


Another shortcut is to type a decimal point anywhere іп the expression. This will cause M athematica to 
evaluate the expression numerically. 


EXAMPLE 16 


<Note the decimal point after the 5. 


EXAMPLE 17 


NE x] or w//N 
3.14159 


Nim, 50] 
3.1415926535897932384626433832795028841971693993751 


The Mathematica kernel keeps track of the results of previous calculations. The symbol % returns the 
result of the previous calculation, %% gives the result of the calculation before that, %%% gives the result of 
the calculation before that and so forth. Using % wisely can save a lot of typing time. 


EXAMPLE 18 To construct jg 4- zt 4 Jz, we could type: Sqrt[Pi *Sqrt[Pi *Sqrt[Pi ]]].A less 
confusing way of accomplishing this is to type 


Sqrt[Pi]; < The semicolon suppresses the output of the intermediate calculations. 
Sqrt[ Pi + %]; 
Sqrt[ Pi + %] 


Qmm m 
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Using the Basic Math Input palette, we can type 


Jn; 
Am t 96; 
Am t % 


л+\л+/л 


SOLVED PROBLEMS 


118 Definea 23, b = 4, and с = 5. Then multiply the sum of a and b by the sum of b and c. Print only 
the final answer. 


SOLUTION 

a=3; 

b=4; 

c =5; 

(a+b) *(b+tc) 
63 


119 Leta = 1, b = 2, and c = 3 and add a, b, and с. Then clear a, b, and c from the kernel's memory and 
add again. 
SOLUTION 
а = 1; 
b = 2; 
c = 3; 
atbte 
6 
Clear[a,b,c] 
atbte 


atbic 


1.20 Obtain а 25-decimal approximation of e, the base of the natural logarithm. 


SOLUTION 
N[E, 26] or N[e, 26] < 26 significant digits gives 25 decimal places. 
2.7182818284590452353602875 


12 3 1 ‚ 
121 (a) Express 7+13-19 +33 as a single fraction. 


(b) Obtain an approximation accurate to 15 decimal places. 
SOLUTION 


1/7*2/13- 3/19 * 1/23 


7249 
39767 


NI %, 15] 
0.182286820730757 
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122 Compute -/968 (a) exactly and (b) approximately to 25 significant digits. 
SOLUTION 
1868 or Sqrt[968] 
22/2 
ND% 25] 
31.11269837220809107363715 


123 Multiply 12 by 6. Then multiply 15 by 7. Then use % and %% to add the two products. 
SOLUTION 
12*6 
72 
15*7 
105 
%%%% 
177 


1 
124 Compute 1-----1-- 


125 Compute the value of 1--(1-(1-(1-(1--1)2)2)2)2, 
SOLUTION 


1+1 

2 
1%%2 
5 
1%%2 
26 

1 + %^ 
677 
1+%%2 
458 330 
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1.6 Cells 
Cells are the building blocks of a Mathematica notebook. Cells are indicated by brackets at the right-hand 
side of the notebook. (M ost likely you have already noticed these brackets and were wondering what they 
meant.) Cells can contain sub-cells, which may in turn contain sub-sub-cells, and so forth. 

The kernel evaluates a notebook on a cell-by-cell basis, so if you have several instructions within a 
single cell, they will all be executed with a single press of the [ENTER] key. 


EXAMPLE 19 
a=l+2 
b=2+7 <All three lines are contained within a single cell. [ENTER] is pressed only once. 
c=athb 
3 
9 
12 


A new cell can be formed by moving the mouse until the cursor becomes horizontal, and then clicking. 
A horizontal line will appear across the screen to mark the beginning of the new cell. Existing cells can 
be divided by clicking on the menu Cell = Divide Cell. The cell will be divided into two cells, the break 
occurring at the point where the cursor is positioned. As a shortcut, you can divide a cell by pressing 
(simultaneously) [SHIFT] + [CTRL] + [D]. 

Cells can be combined (merged) by selecting the appropriate cell brackets (a vertical black 
line should appear) and then clicking оп Cell = Merge Cells. Alternatively, you can press 
[SHIFT] + [CTRE] + [M]. 

To avoid extremely long notebooks, cells can be closed (or compressed) by double-clicking on the cell 
bracket. The bracket will change appearance, looking something like а fish hook. Double-clicking a second 
time will open the cell. 

There are different types of cells for different purposes. Only input cells can be fed to the kernel for 
evaluation. Text cells are used for descriptive purposes. Other cell types such as Title, Subtitle, Section, 
Subsection, etc. can be found by clicking on the menu Format — Style. The cell type can also be seen 
and changed using a drop-down box located in a toolbar at the top of your notebook. If you do not see the 
toolbar, go to Window — Show Toolbar to display it. 


SOLVED PROBLEMS 


126 Leta =2x + 3 апар = 5x + 6. Then compute a + b. 
(a) Place each instruction in a separate cell and execute them individually. 
(b) Place all three instructions in a single cell and execute them simultaneously. 


SOLUTION 
This is what the output looks like after execution: 


(а) a=2x+3 | (b) a=2x+3 
3 + 2х | b=5x +6 | 
b=5x+6 | a+b 
6 + 5х | 3%2х | 
a+b ] po SE | 
9 + 7х | жк ] 
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127 Leta=2x+3y+4z,b=x+3y+5z, andc=3x+y+z. Compute the sum of a, b, and с. Place four 
lines within a single cell and execute, printing only the final result. 


SOLUTION 
a=2x *3y + 4z; 
b =x + 3y + 5z; 
c= 3x ty +2; 
а+ б +с 


6x + 7y + 102 1 


1.7 Getting Help 


There are many sources of help in Mathematica. First and foremost is the Documentation Center (as 
shown in thefollowing figure) availablefrom the Help menu. There you will find all available commands 
grouped by topic, or you can search for the help you need by typing in a few keywords. The Function 
Navigator contains a listing of all thefunctions available in M athematica arranged by topic, and the entire 
Mathematica manual may be accessed by going to the Virtual Book. 

The help files contain numerous examples that you may want to explore. Feel free to make any changes 
in the help files without fear of modifying their content. These files are protected and your changes will 
not be permanent. 


mn Wolfram Mathematica: Documentation Center 
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—*:. DYNAMIC INTERACTIVITY 


If you know the name of the command you want, you can use a question mark, ? , followed by the name 
of the command to determine its syntax. M ore extensive information about the command, including attributes 
and options, can be obtained using ? ? . Or you can type the name of the command, place the cursor within its 
name, and then press F1. You will betaken to a page with a complete description and illustrative examples. 
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Occasionally, when you make an error, M athematica will beep or the cell will change color. If you are 
not sure what you did to cause this, you can get a clue by going to Help = Why The Beep? or Help = 
Why The Coloring? 


EXAMPLE 20 Suppose you know that the command PI ot graphs a function, but you cannot remember its 
syntax. 


? Plot 


РІО f, (X, Xminr X«,,)] generates a plot of f as a function of x from Х to Xmax: 
Plot[ {fi Ї,,...}, (X, Хь, Xmaxt] plots several functions fi. >> 


If information is needed about attributes or optional settings (and their defaults), ? ? can be used. 
2?PI ot 


Plot[ f, (X, Хат, Xmaxt] generates a plot of f as a function of x from Xmin to Xmax: 
Plot[ { fy, £,...), (X, Xmin Xmaxt] plots several functions fj. >> 


Attributes [Plot] ={HoldA11, Protected} 

1 
GoldenRatio. 
Axes > True, AxesLabel -> None, AxesOrigin > Automatic, AxesStyle > {}, 
Background — None, BaselinePosition э Automatic, BaseStyle > { } Р 
ClippingStyle None, ColorFunction Automatic, ColorFunctionScaling True, 
ColorOutput Automatic, ContentSelectable Automatic, 
DisplayFunction >» $DisplayFunction, Epilog > {}, 
Evaluated > System’ Private $Evaluated, EvaluationMonitor None, 
Exclusions Automatic, ExclusionsStyle None, Filling None, 
FillingStyle Automatic, FormatType :» TraditionalForm, Frame > False, 
FrameLabel o None, FrameStyle  (],FrameTicks > Automatic, 
FrameTicksStyle > {}, GridLines Э None, GridLinesStyle > {}, 
Imagemargins — 0., ImagePadding All, ImageSize — Automatic, 
LabelStyle > {}, MaxRecursion Automatic, Mesh None, 
MeshFunctions > {#1 &}, MeshShading > None, MeshStyle > Automatic, 
Method > Automatic, PerformanceGoal э $PerformanceGoal, 
PlotLabel > None, PlotPoints > Automatic, PlotRange > (Full, Automatic}, 
PlotRangeClipping э True, PlotRangePadding — Automatic, 
PlotRegion > Automatic, PlotStyle э Automatic, 
PreservelmageOptions > Automatic, Prolog > {}, RegionFunction > (True &), 
RotateLabel > True, Ticks -> Automatic, TicksStyle- {}, 
WorkingPrecision o MachinePrecision} 


Options [Plot]-(AlignmentPoint Center, AspectRatio > 


Options can also be obtained using the Options command. This is useful if you want to specify an option but 
cannot remember its name. 


EXAMPLE 21 


Options[Sol ve] 


( InverseFunctions > Automatic, MakeRules— False, Method 5 3, Mode 5 Generic, 
Sort True, VerifySolutions O Automatic, WorkingPrecision-9 ee } 


Very often you may remember part of a symbol name, but not the whole name. If you know the 
beginning is “Arc,” for example, type in the part you know and then press [CTRL] + [K]. This will 
generate a menu of all commands and functions beginning with A rc. Then click on the one you want. 
If you are using a M acintosh computer, use [COMMAND] + [K]. (The [COMMAND] key is the key 
with the apple on it.) 
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EXAMPLE 22 TypeArc and then press [CTRL] + [K] or [COMMAND] + [K]. 


aor 


EJ Untitled-1 * 


100% 4 . 


Another way of determining symbol names is to use? together with wildcards. T he character " * " acts 
as a "wildcard" and takes the place of any sequence of characters. Wildcards can be used anywhere, at the 
beginning, middle, or end of a symbol. 

EXAMPLE 23 Output may vary depending upon your version of M athematica 

(a) Find all commands beginning with "Inv." 


?| nv* 


v System 


Inverse 
InverseBetaRegularized 
InverseCDF 
InverseEllipticNomeQ 
InverseErf 

InverseErfc 

InverseFourier 
InverseFourierCosTransform 
InverseFourierSinTransform 
InverseFourierTransform 
InverseFunction 


v WebServices 


InvokeServiceOperation 


InverseFunctions 
InverseGammaRegularized 
InverseGaussianDistribution 
InverseJacobiCD 
InverseJacobiCN 
InverseJacobiCS 
InverseJacobiDC 
InverseJacobiDN 
InverseJacobiDS 
InverseJacobiNC 
InverseJacobiND 


InverseJacobiNS 
InverseJacobisC 
InverseJacobiSD 
InverseJacobiSN 


InverseLaplaceTransform 


InverseSeries 


InverseVVeierstrassP 
InverseZTransform 


Invisible 
InvisibleApplication 
InvisibleTimes 
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(b) Find all commands ending with “in.” 


?*in 

v System 
ArcSin DistributionDomain Min StringJoin 
AxesOrigin GroupPageBreakVVithin PageBreakWithin Thin 
Begin Join Plain $MachineDomain 
CoefficientDamain Khinchin Sin 
ConstrainedMin LineBreakWithin StackBegin 


(c) Find all commands with "our" in the middle. 


7 *our* 

v System" 
ButtonSource ContourStyle FrontEndResource 
ClockwiseContourlntegral CounterClockwiseContourlntegr FrontEndResourceString 
ContourGraphics DoubleContourlntegral InverseFourier 
Contourlntegral FindShortestTour InverseFourierCosTransform 
ContourLabels Fourier InverseFourierSinTransform 
ContourLines FourierCosTransform InverseFourierTransform 
ContourPlot FourierDCT LightSources 
ContourPlot3D FourierDST ListContourPlot 
Contours FourierParameters ListContourPlot3D 
ContourShading FourierSinTransform $FinancialDataSource 
ContourSmoothing FourierTransform 


v PacletManager 


PacletResource 


v ResourceLocator 


ResourceAdd ResourcesLocate 


Wildcards can also be used to determine which symbols have been used thus far by the kernel. Typing? ` * returns 
a list of all symbols that have been defined during your M athematica session. The character ` (backquote) stands for 
global— you want a list of all global symbols. (See the appendix for a discussion of global symbols.) 


EXAMPLE 24 Note: Тһе results of this example may be slightly different on your computer, depending upon the 
symbols you have defined. 


> Global 
a b2xy хул 


Clear["' * "] will clearall global symbols. Remove["* *"] will remove all global symbols. 


EXAMPLE 25 


Remove["" *"] 
2 s < Check to see if any symbols remain. 


Remove :: rmnsm : There are no symbols matching "`+". >> 
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SOLVED PROBLEMS 


128 Obtain basic information about the M athematica command S i mpl i f y. 
SOLUTION 
? Simplify 
Simplify[expr] performs a sequence of algebraic and other transformations on expr, and returns the 


simplest form it finds. 
Simplify[expr, assum] does simplification using assumptions. >> 


1.29 Obtain extended information about the M athematica command Si mpl i f y including default settings 
for options. 


SOLUTION 
22 Simplify 
Simplify[expr] performs a sequence of algebraic and other transformations on expr, and returns the 


simplest form it finds. 
Simplify[expr, assum] does simplification using assumptions. >> 


Attributes [Simplify] ={Protected} 


Options [Simplify] ={Assumptions > $Assumptions, 
ComplexityFunction ээ Automatic, ExcludedForms — { } , TimeConstraint — 300, 
TransformationFunctions — Automatic, Trig True] 


1.30 Obtain help on the Mathematica command Factor and then factor x? - 6x? + 11x- 6. 
SOLUTION 
?Factor 
Factor[ poly] factors a polynomial over the integers. 
Factor[ poly, Modulus — p] factors a polynomial modulo a prime p. 


Factor[ poly, Extension — 18, a;,...)] factors a polynomial allowing coefficients that are rational combinations 
of the algebraic numbers а. >> 


Factor[x?- 6x? + 11x - 6] 
(-3 +x) (-2 +x) (-1+x) 


131 Find all Mathematica commands beginning with “Abs.” 


SOLUTION 

?Abs* 

v System” 
Abs AbsoluteOptions AbsoluteTime 
AbsoluteCurrentValue AbsolutePointSize AbsoluteTiming 
AbsoluteDashing AbsoluteThickness 


132 Find all Mathematica commands beginning with “si” and ending with “al.” 
SOLUTION 
? Si *al 
v System” 
Sinhlntegral SinIntegral 
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1.33 Find all Mathematica commands beginning with "ri." 


SOLUTION 

ІН» 

v System" 
Fibonacci 
FieldMasked 
FieldSize 
File 
FileByteCount 
FileDate 
FileFormat 
FileHash 
Filelnformation 
FileName 


FileNameDialogSettings 


FileNames 


v JLink 
FieldFunction 


ІЗА Find all Mathematica commands beginning with “Fi” and ending with “t.” 


SOLUTION 

інен 

v System" 
FileByteCount 


FileFormat 
FilePrint 


1.8 Packages 


FindFit 
FindList 
FindRoot 


FileNameSetter 
FilePrint 
FileType 
Filling 
FillingStyle 
FilterRules 
FinancialData 
Find 
FindClusters 
FindF it 
Findlnstance 
FindList 


Fields 


First 
Fit 
FixedPoint 


FindMaximum 
FindMinimum 
FindRoot 
FindSettings 
FindShortestTour 
FinishDynamic 
First 

Fit 

FitAll 
FixedPoint 
FixedPointL ist 


FixedPointList 


There are many specialized functions and procedures that are not loaded when M athematica is initially 
invoked. Rather, they must be loaded separately from files in the Mathematica directory on the hard drive. 
These files are of the form filename.m. 


EXAMPLE 26 А map of the world сап be obtained from the command Wor! dPl ot which is located in the 
package Wor | РІ ої `. То load this command, simply type (note the ^ at the end) 

<<WorldPlot’ or Needs[ "WorldPlot~"] 
The appropriate command can then be accessed. 


Worl dPl ot [World] 


"rude a 


= а 
ef me^ = 
Be «5 | 
RS aa 
POR f * j 
vf RA M БЫ 
: CET 
2 pe PUN 
Y fr . 
Xo CNW Ld / 
| = 
Ed Ea = a 


Once a package is loaded you can get a list of the functions it contains by using the Na mes command. 
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EXAMPLE 27 (Continuation of Example 26) 


Names[ "WorldPlot~*"] 


(Africa, Albers, Asia, ContiguousUSStates, Equirectangular, Europe, 
LambertAzimuthal, LambertCylindrical, Mercator, MiddleEast, Mollweide, 
NorthAmerica, Oceania, Orthographic, RandomColors, RandomGrays, ShowTooltips, 
Simple, Sinusoidal, SouthAmerica, ToMinutes, USData, USStates, World, 
WorldBackground, WorldBorders, WorldClipping, WorldCountries, WorldData, 
WorldDatabase, WorldFrame, WorldFrameParts, WorldGraphics, WorldGrid, 
WorldGridBehind, WorldGridStyle, WorldPlot, WorldPoints, WorldProjection, 
WorldRange, WorldRotatedRange, WorldRotation, WorldToGraphics } 


EXAMPLE 28 The packageCal endar' includes some interesting calendar functions. 


«Cal endar' 
Names[ "Calendar" ^«"] 


(Calendar, CalendarChange, DateQ, DayOfWeek, DaysBetween, DaysPlus, 
EasterSunday, EasterSundayGreekOrthodox, Friday, Gregorian, Islamic, Jewish, 
JewishNewYear, Julian, Monday, Saturday, Sunday, Thursday, Tuesday, Wednesday] 


?DaysBet ween 


DaysBetween|[ {year,, month,, dayı}, {year,, month,, day,}] gives the number of days between the dates 
{year,, month,, dayı} and {уеаг,, month,, дау, }. 

DaysBetween|[{year,, month,, dayı, hour,, minute,, second,}, {year,, month,, дау,, hour;, minute,, second,}] 
gives the number of days between the given dates. >> 


DaysBet ween[ {2007, 8, 3}, {2008, 12, 5}] 
490 


SOLVED PROBLEMS 


135 The function Day Of Week appears in the package Cal endar' and gives the day of the week of 
any date in the calendar. L oad the package, obtain help to determine its syntax, and then determine 
which day of the week J anuary 1, 2000, was. 


SOLUTION 


«Cal endar ` 
? Day Of Week 


DayOfWeek[ (year, month, day}] gives the day of the week on which the given date (year, month, day} 
occurred. 
DayOfWeek[ (year, month, day, hour, minute, second)] gives the day of theweek for the given date. >> 


DayOf Week[ (2000, 1, 1}] 
Saturday 


136 The package Combi natori са ^ contains functions in combinatorics and graph theory. One of 
these is KSubsets, which lists all subsets of size k of a given set. Load the package and execute 
Ksubsets[11,2,3,4,5),3]. 


SOLUTION 
«Combi natorica' 


KSubsets[ 11, 2, 3, 4, 5}, 3] 


{{1, 2, 3}, {1,2,4}, {1, 2, 5}, (13,3, 4}, (13, 3, 5}, 
{1,4,5}, {2, 3, 4}, {2,3,5}, (2, 4, 5}, (3, 4, 5}} 


CHAPTER1 Getting Acquainted 


1.9 A Preview of What Is to Come 

If you have just purchased your copy of Mathematica, you probably cannot wait to give it a test run. 
The following examples are a collection of problems for you to try. What follows are some basic 
commands. To keep things simple, options have been omitted and M athematica's defaults are used 
exclusively. We will discuss modifications to these commands in subsequent chapters, but for now, 
just have fun! 


EXAMPLE 29 Obtain а 50 significant digit approximation to /z . 


М Vz, 50] or N[Sqrt[Pi], 50] 
1.7724538509055160272981674833411451827975494561224 


EXAMPLE 30 Solve the algebraic equation x? - 2x+1=0. 
Solve[x?- 2x +1 == 0] ог Solve[x^3-2x *1--0] 


[еа (а) 20648) 


EXAMPLE 31 Express (х + 1): in traditional polynomial form. 
Expand[(x + 1)] // Traditional Form 
x? - 10x? + 45x8 +120х7 + 210х6 + 252? + 210x* +120x? + 45x? +10x+1 


EXAMPLE 32 What is the 1000th prime? 


Pri me[ 1000] 
7919 


EXAMPLE 33 Thefunction El ement Dat a gives values of chemical and physical properties of elements. A mong 
the properties included are AtomicWeight and AtomicNumber, whose definitions are self-explanatory. Compute 
the atomic weight and atomic number of titanium. (Note the quotation marks.) 


El ement Data[ "Titanium", "AtomicWeight"] 
47.867 

Element Data[ "Titanium", "AtomicNumber"] 
22 


EXAMPLE 34 Plot the graph of y = sin x from 0 to 27. 
Plot[Sin[x], tx, 0, 2x1] 


10r 


0.5 | 


-0.5 


-1.0 
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EXAMPLE 35 Sketch the graphs of y = sin x, y = sin 2x, and y = sin 3x, 0 € x € 2m, on one set of axes. 
Plot[£Sin[x], Sin[2x], Sin[3x]}, {x, 0, 27}] 


0.5 L / 


-0.5 L 


ET 


EXAMPLE 36 Sketch the three-dimensional surface defined by 2 = (x? + 3y?)e- ^»? , 


Plot3D[(x? + 3у2) e? *?, (x, -3, 3), (y, -3,3)] or 
Plot3D[(x^2*3y^72)* Exp[-(x2+y2)], €x, -3, 32, (y, - 3, 31] 


Click on the graph and drag the mouse to view the graph from any viewpoint. 


Basic Concepts 


2.1 Constants 
Mathematica uses predefined symbols to represent built-in mathematical constants. 


= Pi огл іѕ the ratio of the circumference of a circle to its diameter. 
= Е or eis the base of the natural logarithm. 


Both рі and Е are treated symbolically and do not have values, as such. However, they may be 
approximated to any degree of precision. 


EXAMPLE 1 № л, 500] will produce a 500 significant digit approximation to л (499 decimal places). 


N[ m, 500] 
3.1415926535897932384626433832795028841971693993751058209749445923078164062 
862089986280348253421170679821480865132823066470938446095505822317253594081 
284811174502841027019385211055596446229489549303819644288109756659334461284 
756482337867831652712019091456485669234603486104543266482133936072602491412 
737245870066063155881748815209209628292540917153643678925903600113305305488 
204665213841469519415116094330572703657595919530921861173819326117931051185 
480744623799627495673518857527248912279381830119491 


= Degree is equal to Pi / 180 and is used to convert degrees to radians. 

= Gol denRati o has the value (1--./5)/2 and has a special significance with respect to Fibonacci 
series. It is used in M athematica as the default width-to-height ratio of two-dimensional plots. 
I nfi ni ty orisa constant with special properties. For example, œ + 1 = ee. 
Eul er Gamma is Euler's constant and is approximately 0.577216. It has applications in integration 
and in asymptotic expansions. 

= Catalan isCatalan's constant and is approximately 0.915966. It is used in the theory of combinato- 
rial functions. 


EXAMPLE 2 How much is œ+? 


оо + оо 


оо 


SOLVED PROBLEMS 


2.1 Approximately how many radians are in 90 degrees? 
SOLUTION 


90 Degree // N < expression/ / М is the same as № expression] 
1.5708 
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2.2 Show that Gol denRati o satisfies the algebraic equation x? - x- 1=0. 
SOLUTION 


х = Gol denRatio; 
x!-x-1/1/N 
0 


2.3 What happens if Zachary tries to subtract со from со? 
SOLUTION 
co = со 
co::indet : Indeterminate expression -oo + оо encountered. >> 


Indeterminate 


24 Compute a 20 decimal place approximation to e, the base of the natural logarithm. 
SOLUTION 


N[E,21] or Ще, 21] 
2.71828182845904523536 


2.2 “Built-In” Functions 


In this section we discuss some of the more commonly used functions M athematica offers. Because of 
the vast number of functions available, no attempt is made toward completeness. A dditional functions are 
discussed in detail in later chapters. 

Standard mathematical functions can be accessed by name or by clicking on their symbol in a M athematica 
palette. For example, the square root of a number can be obtained using either the function Sqrt or, 
alternatively, by using the ~ symbol from the Basic Math Input palette. Remember that the argument 
of a function must be contained within square brackets, [ ]. 


m Sqrt[x] or Vx gives the non-negative square root of x. 


EXAMPLE 3 
Sqrt[1521] or 41521 
39 


Higher order roots can be computed by recalling that Vx =x". The symbol 3/ on the 
Basic Math Input palette may also be used. Notice that higher order roots of negative numbers are given 
in a special format. 


EXAMPLE 4 The cube root of 8 is given directly, but the cube root of -8 is given in terms of 3/-1. 
8711/3} or i8 
2 
(-8) 11/3) or 48 


2 (-1) 1/3 


EXAMPLE 5 
NI V2] 
1.41421 


NI V2, 50] 
1.4142135623730950488016887242096980785696718753769 
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The function that returns the absolute value of x, |x|, isAbs. 
в Abs[x] returns x if x 2 0 and -x if x <0. 


The function Abs can also be applied to complex numbers. If z is the complex number x+y i, Abs[ z] 
returns its modulus, Jx? + y? . 


EXAMPLE 6 


Abs[5] 

5 

Abs[-5] 

5 

АБ5[5 +121] 
13 


It is sometimes useful to have a function that determines the sign of a number. 


=» Sign[x] returns the values -1, 0, 1 depending upon whether x is negative, 0, or positive, 
respectively. 


EXAMPLE 7 


Sign[-27.5] 
-1 

Si gn[ 0] 

0 
Sign[6.254] 
1 


The factorial of a positive integer, n, represented n! in mathematical literature, is the product of the 
integers 1, 2, 3, ... ‚п. By definition, 0! = 1. For non-integer values of n, n! is defined by Г(п+1) where T 
is Euler's gamma function. 


в" Factorial[n] orn! givesthefactorial of n if n is a positive integer and T(n + 1) if n has a non- 
integer positive value. 


EXAMPLE 8 


5 

120 

0! 

1 
Factorial[3.5] 
11.6317 


M athematica has a built-in random number generator. This is a useful function in probability theory and 
statistical analysis, e.g., random walks and M onte Carlo methods. 


в Random[ | gives a uniformly distributed real pseudorandom number in the interval [0, 1]. 

= Random[ type] returns a uniformly distributed pseudorandom number of type type, which is either 
Integer, Real, Or Complex. Its values are between 0 and 1, in the case of Integer or Real, 
and are contained within the square determined by о and 1+2, if type is Complex. 

= Random type, range] gives a uniformly distributed pseudorandom number in the interval or rect- 
angle determined by range. range can be either a single number or a list of two numbers such as 
(a,b) or (a« bI, с+ат}.А single number, m, is equivalent to { 0, т}. 

= Random[type, range, n] gives a uniformly distributed pseudorandom number to n significant 
digits in the interval or rectangle determined by range. 
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M athematica also offers the functions RandomReal , Randoml nteger, and RandomCompl ex to 
generate pseudorandom numbers. 


= RandomReal[ | returns a pseudorandom real number between 0 and 1. 

= RandomReal [ xmax] returns a pseudorandom real number between 0 and xmax. 

m RandomReal [ (xmi n, xmax}] returns a pseudorandom real number between xmin and 
xmax. 

= RandomReal [ (xmi n, xmax), n] returnsalist of n pseudorandom real numbers between xmin 
and xmax. 

= RandomReal [ (xmi n, xmax}, (m, n}] returnsanmxnlist of pseudorandom numbers between 
xmin and xmax. This extends in a natural way to lists of higher dimension. (See Chapter 3 for a 
complete discussion of lists.) 


The definitions of Randoml nteger апа RandomCompl ex аге similar to RandomReal and may be 
looked up in the Documentation Center. 


в RandomSampl e[ ‹е,,е,,... ,е,}, КІ gives a pseudorandom sample of k of the e,. 
m RandomSample[{e,, @,,...,@,}] gives a pseudorandom permutation of the list of e,. 


A ny random number generator produces its output from an algorithm based upon an initial value, called a 
seed. M athematica allows you to introduce a seed using the function SeedRandom. 


m SeedRandom[n] initializes the random number generator using n as a seed. This guarantees that 
Sequences of random numbers generated with the same seed will be identical. 

m SeedRandom[ | initializes the random number generator using the time of day and other attributes 
of the current M athematica session. 


EXAMPLE 9 (Your answers will be different from those shown.) 


Random[I nteger] < Returns 0 or 1 with equal probability. 

0 

Random Real] < Returns a 6 significant digit real number between о апа 1. 
0.386297 

Random[ Compl ex] < Returns a complex number in the square whose opposite vertices 
0.420851 + 0.3821871 аге о and 1+1. 

Random Real, 5] < Returns areal number uniformly distributed in the interval [0,5]. 
1.83872 

Random Real, {3, 5}] < Returns a real number uniformly distributed in the interval [3,5]. 
3.95386 

Random Real, {3, 5}, 10] < Returns a real number uniformly distributed in the interval [3,5] to 
4.014673296 10 significant digits. 

Random Integer, {1, 10}] < Returns an integer between 1 and 10 with equal probability 1/10. 

7 

Random[ Compl ex, {2+1,5+6 15] < Returns a complex number in the rectangle whose opposite 
2.61319 + 4.308691 vertices are the complex numbers 2+1 and 5+61. 

RandomReal [ (3,53 

3.62039 


Random nteger[ 53, 10}, 20] 

{6, 5, 7, 5, 3, 7,10, 4, 9, 7, 5, 9, 8, 5, 4, 10, 4, 3, 9, 3} 
RandomSample[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10}, 5] 

{2, 8, 3, 1, 10} 
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A positive integer is prime if itis divisible only by itself and 1. For technical reasons, 1 is not considered 
prime; the smallest prime is 2. 


Pri me[n] returns the nth prime. 

RandomPri me[n] returns a pseudorandom prime number between 2 and n. 

RandomPri me[ { т, n3] returns a pseudorandom prime number between m and n. 

RandomPri me[ { т, n}, К] returns a list of к pseudorandom primes, each between m 
and n. 


EXAMPLE 10 Find the 7th prime. 
Pri me[7] 
17 


RandomPri me[ (7, 47)] 
29 


RandomPri me[ (7, 47}, 10] 
(31, 29, 41, 47, 43, 13, 31, 17, 37, 7) 


TheFibonacci numbers are defined by 
fi- 1, 
f- 1, 
f.-f +11 п>3 
Thus, the first few Fibonacci numbers are 1, 1, 2, 3, 5, 8, 13, 21, ... 


= Fibonacci[n] returns the nth Fibonacci number. 


EXAMPLE 11 


Fibonacci[7] 
13 


There are three M athematica functions that convert real numbers to nearby integers. 


m Round[x] returns the integer closest to x. If x lies exactly between two integers 
(e.9., 5.5), Round returns the nearest even integer. 

m Floor[x] returns the greatest integer which does not exceed x. This is sometimes known as the 
"greatest integer function" and is represented in many textbooks by Lx]. 

m Ceiling[x] returns the smallest integer not less than x. M any textbooks represent this by | x |. 


EXAMPLE 12 
Round[5.75] 
6 
Floor[5.75] 
5 
Ceiling[5.75] 
6 


A decimal number can be broken up into two parts, the integer portion (number to the left of the decimal 
point) and the fractional portion. 


m IntegerPart[x] gives the integer portion of x (decimal point excluded). 
m Fractional Part[x] gives the fractional portion of x (decimal point included). 


Observe that IntegerPart [x] + FractionalPart [x] =x. 
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EXAMPLE 13 


I ntegerPart[4.67] 
4 


Fractional Part[4. 67] 
0.67 


IntegerPart[4.67] +Fractional Part[ 4. 67] 
4.67 


If m and n are positive integers, there exist unique integers q and r such that 
m=qn+r with O<r<n 


This result is known as the Division Algorithm. 4 is called the quotient and r is the remainder. Тһе 
Mathematica functions Quot i ent and Mod return the quotient and remainder, respectively. 


= Quotient[m, n] returns the quotient when mis divided by n. 
m Mod[m, n] returns the remainder when mis divided by n. 


EXAMPLE 14 


Quoti ent [ 17, 3] 
5 

Mod[17, 3] 

2 


Suppose а and b are two integers. If there exists an integer, К, such that a = kb, we say that b divides a. 
Alternatively, a is a multiple of b. 

Let m and n be two integers. If b divides both m and n, we say that b is a common divisor of m and n. 
The largest common divisor of m and n is called their greatest common divisor (GCD). 

If a is a multiple of both m and n, we say a is a common multiple of m and n. The smallest common 
multiple of m and n is called their least common multiple (LCM ). 


в GCD[m, n] returns the greatest common divisor of m and n. 
m LCM[m, n] returns the least common multiple of m and n. 


Thefunctions GCD and L CM extend to more than two arguments. 


EXAMPLE 15 Find the greatest common divisor and least common multiple of 24, 40, and 48. 
GCD[24, 40, 48] 
8 
LCM[ 24, 40, 48] 
240 


The Fundamental Theorem of Arithmetic guarantees that every positive integer can be factored into 
primes in a unique way. 


m Thefunction Factor| nteger[n] gives the prime factors of n together with their respective 
exponents. 
EXAMPLE 16 
Factori nteger[2 381 400] 
{{2, 3}, {3, 5}, (5,2), 0, 2}} 


The prime factors of 2,381,400 are 2, 3, 5, and 7 with exponents, respectively, 3, 5, 2, 2. In other 
words, 2,381,400 = 23355272, The result of this operation produces a nested sequence of lists. (А listis a 
Mathematica object, enclosed within braces, { }, which will be discussed in detail in Chapter 3.) 
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In order to estimate computational efficiency, it is useful to be ableto determine how long an operation 
or sequence of operations takes to execute. 


» Ti mi ng[ expression] evaluates expression, and returns a list of time used, in seconds, together with 
the result obtained. 


Ti mi ng counts only the CPU time spent in the M athematica kernel. It does not include overhead time 
spent in the front end. 


EXAMPLE 17 How long does it take the kernel to compute the ten billionth prime? 


Ti mi ng[ Pri me[ 10 000 000 000]] 
(2.953,252 097 800 623) 


Of course, the actual time taken will vary, depending upon the speed of the CPU. 


Logarithms and exponential functions to any base can be computed using the function Log. 


= Log[x] represents the natural logarithm. If a base, b, other than e is required, the appropriate form 
isLog[b, x]. 

= Thefunction Exp[ x] is the natural exponential function. Other equivalent forms are E ^x and Е". 
Lowercase e cannot be used, but the special symbol e from the Basic Math Input palette may be 
used instead. Exponential functions to the base b are computed by b ^x or b*. 


EXAMPLE 18 Compute In 100, the natural logarithm of 100. 


1981104) Observe that Mathematica always gives exact answers. 
Log [100] A pproximations are supplied only when requested. 
Log[100]//N 

4.60517 


EXAMPLE 19 Compute 100,100. 
Log[2, 100] 


Log [100] 
Log [2] 


Log[2, 100]// N 
6.64386 


«< This is the exact value of 109,100, expressed in terms of natural logarithms. 


EXAMPLE 20 To compute a numerical approximation of e?, we can write 
Exp[2]//N or E?/]N or eJ/N 
7.38906 


= The six basic trigonometric functions, sine, cosine, tangent, secant, cosecant, and cotangent, are 
represented in Mathematica by Si n, Cos, Tan, Sec, Csc, and Cot , respectively. 


Mathematica assumes the arguments of trigonometric functions to be in radians. Problems involving 
degrees must first be converted to radians if trigonometric functions are involved. For this purpose, one 
can use the built-in constant, De gr ee, whose value is 1/180. The symbol °, located on the Basic Math 
Input palette, may be used as well. 


EXAMPLE 21 60215 equivalent to 7/3 radians. To compute its sin using radian measure, we write 
sin|£| or Sin[Pi / 3] 
Уз 


2 
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If we wish to compute its sin using degree measure, we can type 
Sin[60 Degree] or Sin[60?] 
RE 


2 


Care must be taken with trigonometric powers. T he square of sin x in trigonometric form is traditionally 
written sin? x, but M athematica will accept only Si n[ x]? orSi n[ x] ^2. 


EXAMPLE 22 Compute the square of sin 609. 
Sin[60*]? or Sin[60 Оедгее] ^2 


gs [o 


= The inverse trigonometric functions are ArcSi n, ArcCos, ArcTan, ArcSec, ArcCsc, and 
Ar c Cot . However only the principal values, expressed in radians, are returned by these functions. 


EXAMPLE 23 


ArcSin[1] 
T 


2 


ArcCos[Cos[3z]] Cos[3m] = - 1 but the principal value of 
л ArcCos[-1] ism. 


Hyperbolic functions are combinations of exponential functions which have interesting mathematical 
properties. There are six hyperbolic functions. The three basic ones are 


| BET e* + e™ s 
sinh x = 7 cosh x = 7 tanh x = Fe~ 


The other three, sech x, csch x, and coth x, are reciprocals, respectively, of cosh x, sinh x, and tanh x. 


m The Mathematica representations of the six hyperbolic functions are Si nh, Cosh, Tanh, Sech, 
Csch,and Cot h. 


EXAMPLE 24 Compute a numerical approximation to sinh 2. 
Si nh[2]// N 
3.62686 


= Тһе inverse hyperbolic functions are represented by Ar cSi nh, ArcCosh, ArcTanh,ArcSech, 
ArcCsch, andArcCoth. 


Because Cosh апа Sech аге not one-to-one, Ar c Cosh and Ar cSech return only positive values for 
real arguments. 


EXAMPLE 25 


ArcSinh[-2]//N 
-1.44364 
ArcCosh[2] // N 
1.31696 


One special command is worthy of mention at this time: 


= Print[expression] prints expression, followed by a line feed. 
= Print[expressionl, expression2, ...] prints ехргеѕѕіоп1, expression2, .. . followed by a single 
line feed. 
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At first glance it may seem that Pri nt is a redundant command, as simply typing the name of any 
object will reveal its value. However, it has a useful purpose (e.g., see loops in Section 2.8). 


EXAMPLE 26 


Print["Thisprintsalineoftext."] 


This prints a line of text. 


EXAMPLE 27 


а=1, bz2; c=3; d=4; е=5; 


Print[a*b, b+c, ced, d+e, esa] 


35796 


Mathematica includes a class of functions ending in the letter о: 


AlgebraiclntegerQ 
Al gebraicUni tQ 
Argument Count 0 
ArrayQ 

AtomQ 

Copri meQ 

DigitQ 
DistributionDomai nQ 
DistributionParameterQ 
Elli pticNomeQ 

EvenQ 

Exact NumberQ 

FreeQ 
HermitianMatrixQ 
HypergeometricPFQ 

| nexact Number Q 

I nteger до 

Interval MemberQ 
InverseEllipticNomeQ 


LegendreQ 
LetterQ 
LinkConnectedQ 
Li nkReadyQ 
ListQ 
LowerCaseQ 
Machi neNumberQ 
MatchLocal NameQ 
MatchQ 

MatrixQ 
Member 0 

NameQ 

Number Q 
NumericQ 

0440 

OptionQ 
OrderedQ 
PartitionsQ 
Pol ynomi al Q 


PositiveDefiniteMatri xQ 
PossibleZeroQ 

Pri mePowerQ 

Pri meQ 
QuadraticlrrationalQ 
Root Of UnityQ 

SameQ 

SquareFreeQ 
StringFreeQ 
StringMatchQ 

StringQ 

SyntaxQ 

TensorQ 

TrueQ 

UnsameQ 

UpperCaseQ 

Val ueQ 

VectorQ 


These functions are used to test for certain conditions and return a value of True or False. 
Their precise syntax can be determined from the Help menu or by using ? as illustrated in the next 


examples. 


EXAMPLE 28 


?Pri meQ 


PrimeQ[expr] yields True if expr is a prime number, and yields False otherwise. >> 


Pri meQ[ 5] 


True 


Pri meQ[ 6] 
False 


EXAMPLE 29 


?Pol ynomi al Q 


PolynomialQ[expr, var] yields True if expr is a polynomial in var, and yields False otherwise. 
PolynomialQ[expr, {var1,...}] tests whether expr is a polynomial in the var; >> 
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Polynomial Q[x? y +x + Jy, x] 


True 


Polynomial QUx? y + х + Jy, yl 


False 


SOLVED PROBLEMS 


25 


2.6 


2.7 


Compute numerical approximations to the square root and cube root of 10. 
SOLUTION 


Ло /]N or Sqrt[10] //N 
3.16228 


40 //N or 101/3) |] N 
2.15443 


Compute numerical approximations to the square root and cube root of 10 accurate to 20 significant 
digits. 
SOLUTION 


N [ /10, 20 | 


3.1622776601683793320 


N[310, 20] 


2.1544346900318837218 


Compute 43 4/2 and 4/3 – 4/2 to 50 significant digits. Then compute their product. 
SOLUTION 
a =N[J3 + 2, 50] 


3.1462643699419723423291350657155704455124771291873 
в-М,2-.2,50| 
0.31783724519578224472575761729617428837313337843343 


a*b 
1.0000000000000000000000000000000000000000000000000 


28 The binomial coefficient C(n,k) = ИШСЕ . Usethis definition to compute С(10,4). 


SOLUTION 


ПГ ог Factorial[10]/(Factorial [4] * Factorial [10 - 4]) 


210 


2.9 A fair die has six faces, numbered 1 through 6, and each occurs with equal probability. Simulate four 


tosses of afair die. 
SOLUTION 
(Y our answers will be different from those shown here.) 


Random[ Integer, £1, 6)] 
Random[ Integer, 41, 61] 
Random[ Integer, £1, 6}] 
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Random[ Integer, £1, 6}] 
6 


1. 
Б 
3 


2.10 Find a 15 significant digit pseudorandom real number between т and 2л. 
SOLUTION 
(Y our answer will be different from that shown here.) 
Random[Real, (іл, 2л}, 15] 
4.13129131207734 

2.11 Whatis the 27th Fibonacci number? 
SOLUTION 
Fi bonacci [27] 
196 418 

2.12 Show that there is no prime between 157 and 163. 
SOLUTION 


Pri me[ 37] <We determine this by experimentation. 
157 


Pri me[ 38] 
163 


Since 157 and 163 are consecutive primes, there is no prime between them. 


2.13 What is the integer closest to ,/159 ? 


SOLUTION 
Round[Sqrt[159]] or 4159//Round 
13 


2.14 Between what two consecutive integers does (л> + 1)> lie? 


SOLUTION 
Floor[ (2? +1)'] 
151 729 
Ceiling[(z? +1) °] 
151 730 


The number (л? +1)” lies between 151,729 and 151,730. 


2.15 Compute the value of [x] - |x] first using x = 17 and then using x = л. 
SOLUTION 
X=17; 


Ceiling[x] - Floor[x] 
0 


х= рі; [х]- Lx] always equals 0 when x is an integer 
ME and 1 when x is not an integer. 
Ceiling[x] - Floor[x] 


1 
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2.16 W hat are the greatest common divisor апа least common multiple of 5355 апа 40425? 
SOLUTION 


GCD[5355, 40425] 
105 


LCM[ 5355, 40425] 
2 061675 


2.17 Show that 15, 16, and 30 are relatively prime (integers are relatively prime if they have no common 
factor other than 1). 


SOLUTION 


GCD[ 15, 16, 30] 
1 


Since their GCD =1, their only common factor is 1. Therefore, they are relatively prime. 


2-18 A theorem from number theory says that the product of the GCD and LCM of two numbers is always 
equal to the product of the numbers. Verify this using the numbers 74613 and 85085. 


SOLUTION 

à 274613; 
bz85085; 

GCD[a, b]* LCM[a, b] 
6 348 447 105 

a*b 

6 348 447 105 


Obviously, the products are identical. 


2.19 Show that 156,875,438,767 is not prime and factor. 
SOLUTION 
PrimeQ[ 156875438767] 


False 
Factorinteger[156 875 438 767] 
{{53,1}, {2 959 913 939,1}} 


156,875,438,767 is equal to the product of primes 53 and 2,959,913,939. 


2.20 How long did it take M athematica to factor 156,875,438,767 in the previous problem? 
SOLUTION 


Ti mi ng[FactorI nteger[ 156 875 438 767] ] 
{0.011 ,{{53, 1}, {2 959 913 939, 1}}} 


It took approximately 0.011 seconds. (This time will vary from computer to computer.) 


2.21 Compute the natural logarithm of e*. 
SOLUTION 


Log[ е] or Log[E^5] or Log[Exp[5]] 
5 
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2.22 Compute the common logarithm (base 10) of ез. What is its numerical approximation? 
SOLUTION 
Log[10, е or Log[ 10, ES] or Log[10, Exp[5]] 


——3 е 
Log[10] 


AIIN 
2.17147 


2.23 |f Jacob starts with one cent and his money doubles every day, how much money will he have, to the 
penny, after 30 days? 


SOLUTION 

N[2?* / 100] 

1.07374 x 107 

If we want to get the amount to the penny, we will need 10 significant digits. 


amount = N[2?°/ 100, 10] 
1.073741824 x 107 


To see this in a more traditional format, the function Account і ngFor m can be used. 


Accounti ngForm[amount] 
10737418.24 


We can group the digits into blocks of 3 and separate them with commas using the option Di gi t Bl ock 


Accounti ngForm[amount, Di gi ВІ ock 43] 
10,737,418.24 


2.24 W hat is the exact value of sin 1597 Compute a 20 decimal place approximation. 
SOLUTION 
Sin[15 Degree] or Sin[15?] 


RENE 
242 


N% 20] 
0.25881904510252076235 


2.25 Select a random number, x, between 0 and 1 and compute sin? x cos? x. 
SOLUTION (Your value of x will be different from that shown here.) 


x = Random[ ] 
0.427468 


Si n[x]? * Cos[ x]? Recall from trigonometry that 
1. sin? x + cos? x = 1 for all x. 


2.26 Find a number between -л/2 and x/2 whose sin is 1/2. 
SOLUTION 


ArcSi n[1/ 2] 
T 


6 
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2-27 Select a random number, x, between 0 and 1 and compute cosh? x - sinh? x. 
SOLUTION (Your value of x will be different from that shown here.) 


x = Random[] Hyperbolic functions have properties similar to trigonometric 
0.991288 functions: cosh? x - sinh? x = 1 for all x. 

Cosh[x]?- Si nh[x]? 

1. 


2.28 Obtain an alternate representation of tanh(In x). 
SOLUTION 


Tanh[Log[x]]//Traditional Form 
x-1 
х? +1 


2.29 Approximately how many radians аге there іп опе degree? 
A pproximately how many degrees are there in one radian? 


SOLUTION 

N[ Degree] Degree is a Mathematica constant which 
0.0174533 represents the number of radians in one degree. 
N[ 1/ Degree] 11 Degree represents the number of degrees 
57.2958 in one radian. 


2.30 How much is оо + 100,000? 
SOLUTION 
oo + 100 000 

2.31 What is the square root of the complex number 3--4i? 
SOLUTION 


43:41 or Sqrt[3 +41] 
2-1 

2.32 Thenumber of permutations of n objects taken k at atimeis Р(п,К)- mgr How many permutations 
of 20 objects taken 10 at a time are there? | 


SOLUTION 
n -20; 
К 210; 


n!/(n-k)! or Factorial[n]/Factorial[n- k] 
670 442 572 800 


2.33 Between what two consecutive integers does the natural logarithm of 100,000 lie? 
SOLUTION 


Floor[Log[100000]] 
11 

Ceiling[Log[ 1000001] 
12 


In 100,000 lies between 11 and 12. 


23A 


235 


2.36 


237 


2.38 


2.3 
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W hat is the quotient and remainder if 62,173,467 is divided by 9,542? 
SOLUTION 

Quotient[62 173 467, 9542] 

6515 

Mod[62 173 467, 9542] 

7337 

Find the greatest common divisor and least common multiple of 1,001 and 1,331. 
SOLUTION 

GCD[1001, 1331] 

11 

LCM[ 1001, 1331] 

121121 

How long does it take your computer to find the prime factorization of 10! ? 


SOLUTION 


FactorInteger[10!]//Ti mi ng 
(0.016, {{2, 8}, (3, 4}, {5, 2}, {7, 1}}} 


The factorization is 25345271: times will vary depending on the speed of your CPU. 


Find an algebraic expression for cos(sin? (-£:)). 
SOLUTION 


Cos ArcSin| х 
05 resin] a 


4 


— NEN 
(14x?) 


Is 15,485,863 prime? 
SOLUTION 
PrimeQ[ 15485863] 


True 


Basic Arithmetic Operations 


As we have seen, basic arithmetic operations such as addition are performed by inserting an operation 
symbol between two numbers. Thus, the sum of 3 and 5 is obtained by typing 3 +5. However, in more 
advanced applications it is sometimes useful to represent these operations as functions. Towards this end, 
Mathematica includes the following: 


Plus[a, b,...] computes the sum of a, b, ... Pl us[a, b] isequivalenttoa + b. 

Ti mes[a, b,...] Computes the product of a, b, ... Ti mes[a, b] isequivalenttoa * b. 
Subtract[a, b] computes the difference of a and b. Only two arguments are permitted. 
Subtract [a, b] isequivalenttoa - b. 

Divide[a, b] computes the quotient of а and b. Only two arguments are permitted. 
Divi де[а, b] isequivalentto a/ b. 

Mi nus[a] produces the additive inverse (negative) of a. Mi nus[ a] is equivalentto - a. 
Power[a, b] computes a», Power[a, b, c] produces а>”, еїс. 
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EXAMPLE 30 
РІ us[2, 3, 4] 
9 
Ti mes[2, 3, 4] 
24 


Power[2, 3, 4] 
2 417 851 639 229 258 349 412 352 


In order to see the way in which Mathematica handles functions internally, the command Ful | Form 
is quite useful. 


m Full For m[ expression] exhibits the internal form of expression. 
EXAMPLE 31 


Full Form[a +b +c] 
Plus [a, Б, c] 
FullForm[a - b] 
Plus[a, Times[-1, b]] 
FullForm[(a* b) ^c] 


Power [Times [а, b], с] 
Ful | For т тау be used for any M athematica function, not only arithmetic operators. 
EXAMPLE 32 


FullForm[Sin[x^3] 72] 
Power [Sin [Power [x,3]],2] 


In addition to the standard operational symbols discussed previously, there are a few additional com- 
mands that are useful in special situations. (Note: In order for the following to work, x and y must have 
numerical values.) 


m |ncrement[x] orx ++ increases the value of x by 1 but returns the old value of x. 
m Decrement[x] orx -- decreases the value of x by 1 but returns the old value of x. 
m Prelncrement[x] or++ x increases the value of x by 1 and returns the new value of x. 
m PreDecrement[x] or-- x decreases the value of x by 1 and returns the new value of x. 
m AddTo[x,y] orx += y adds y to x and returns the new value of x. 
m SubtractFrom[x, y] orx -= y subtracts y from x and returns the new value of x. 
m Ti mesBy[x,y] orx х = y multiplies x by y and returns the new value of x. 
в" DivideBy[x, y] orx / = y divides x by y and returns the new value of x. 
The next two examples illustrate the various addition commands. The commands for subtraction, 
multiplication, and division are similar. 


EXAMPLE 33 
xX =3; xX =3; 
X t TEX 
3 <The old value of x is returned. 4 <The new value of x is returned. 
X X 
4 <Tthe actual value of x is 4. 4 <The actual value of x is 4. 


X ** is equivalent to the sequence **x is equivalent to the statement 
X x=xtl 


x*x*1; 
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EXAMPLE 34 

x:3; у= 4; x23; у= 4; 

x+y X += у 

7 <The sum is returned. 7 <The sum is returned. 

X X 

3 < х remains unchanged. 7 <The new value of x is 7. 

y y 

4 «— y remains unchanged. 4 еу remains unchanged. 
X + = y is equivalent to the statement 
х=х+у 


SOLVED PROBLEMS 


2.39 How does M athematica evaluate the expression a 4 bc / d ? 
SOLUTION 
Full Form[a +b * c/d] 
Plus [a, Times [b, с, Power[d, -1]]] 

2.40 How isthe function Mi nus [ x] treated internally in M athematica? 
SOLUTION 
Full Form[ Mi nus[x]] 


Times [-1, х] 


2.4 Strings 
A string is an (ordered) sequence of characters. Strings have no numerical value and are often used as labels 
for tables, graphs, and other displays. 

In Mathematica, a string is enclosed within quotation marks. Thus "abcde" is a string of five characters. 
Do not confuse "abcde" with abcde, as the latter is not a string. 

Mathematica comes equipped with a number of string manipulation commands. 


в StringLength[string] returns the number of characters in string. 

= StringJoin[stringl, string2,...] orstringl <> string2 <>... concatenates two or more 
strings to form a new string whose length is equal to the sum of the individual string lengths. 

m StringReverse[string] reverses the characters in string. 


StringDrop eliminates characters from a string. There are five forms of this command. 


StringDrop[Sstring, n] returns string with its first n characters dropped. 
StringDrop[Sstring, - n] returns string with its last n characters dropped. 
StringDrop[ string, {n}] returns string with its nth character dropped. 
StringDrop[ string, {-n}] returns string with the nth character from the end dropped. 
StringDrop[string, іт, n3] returns string with characters m through n dropped. 


StringTake returns characters from a string. Its format is similar to Stri ngDrop. 


StringTake[string, n] returns the first n characters of string. 
StringTake[string, - n] returns the last n characters of string. 
StringTake[string, {n}] returns the nth character of string. 
StringTake[string, {-n}] returns the nth character from the end of string. 
StringTake[string, < т, n3] returns characters m through n of string. 
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EXAMPLE 35 Іп this example wedefinestri ng = "abcde£fg". Theoutputis shown to the right of the command. 
(Please observe the difference between the M athematica symbol St ri ng and the user-defined symbol st ri ng.) 


string = “abcdefg" 
string <> "hijklmnop" 
StringLength[string] 
StringReverse[string] 
StringDrop[string, 2] 
StringDrop[string, -2] 


StringDrop[stri 
StringDrop[stri 
StringDrop[stri 
StringTake[stri 
StringTake[stri 
StringTake[stri 
StringTake[stri 
StringTake[stri 


ng, 
ng, 
ng, 
ng, 


ng, - 


ng, 
ng, 
ng, 


он 


{-2}] 
(2, 51] 


abcdefg 
abcdefghijklmnop 
7 

gfedcba 

cdefg 

abcde 

acdefg 

abcdeg 


bcde 


Stringl nsert allows you to insert characters within existing strings. 


m Stringlnsert[stringl, string2, n] yields a string with string2 inserted starting at position n 


in stringl. 


m Stringlnsert[stringl, string2, -n] yields a string with string2 inserted starting at the nth 


position from the end of string1. 


в Stringl nsert[stringl,string2, (n1, n2,...}] inserts a copy of string2 at each of the posi- 


tions n1, n2, . . . of stringl. 


StringRepl ace allows you to replace part of a string with another string. 


m StringReplace[string, stringl — newstringl] replaces stringl by newstringl whenever it 


appears in string. 


и StringReplace[string, {stringl — newstringl, string2 — newstring2, .. .}] replaces stringl 
by newstringl, string2 by newstring2, . . . whenever they appear in string. 

m StringPosi ti on[ string, substring] returns a list of the start and end positions of all occurrances 
of substring within string. (Lists are discussed in detail in Chapter 3.) 


EXAMPLE 36 


stringl="abcdefg"; 
string2="123"; 


Stringlnsert[stringl, string2, 3] 


ab123cdefg 


Stringlnsert[stringl, string2, -3] 


abcde123fg 


Stringlnsert[stringl, string2, {1, 3, 5, 7}] 


123ab123cd123ef123g 


StringReplace[stringl, "ab"—"AB"] 


ABcdefg 


ABcdeFG 


StringReplace[stringl, { "ао" "AB", "fg" —"rFG")] 
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EXAMPLE 37 


string = "арсхарсххарсхххарс"; 
StringLength[string] 

18 

StringPosition[string, "abc"] 
{{1, 3}, {5, 7}, {10, 12}, {16, 18}} 


2.5 Assignment and Replacement 


All programming languages must have the ability to make assignments in order to transfer the result of a 
calculation to a symbol which can be recalled for later use. Mathematica offers two types of assignment 
and there is often confusion as to which one to use in a given situation. 


m Ihszrhs is ап immediate assignment in which rhs is evaluated at the time the assignment is 
made. 
m | hs :=rhs isadelayed assignment in which rhs is evaluated each time the value of Lhs is called. 


In many situations both assignments produce identical results. There are, however, a few instances 
where one must be careful. T he following examples use ideas that are discussed in later chapters. They are 
self-explanatory, however, and will be easily understood. 


EXAMPLE 38 When defining functions recursively, := must be used. For example, 
f[ 0] = 1; 
f[n ]:nf[n-1] 


produces n factorial. Since M athematica cannot compute £ [n] until the value of n is specified, the delayed assignment, 
:=, must be used. U sing = causes recursion errors. 


f[5] 

120 
f[10] 
3628800 


EXAMPLE 39 When defining piecewise functions, one must use :=. For example, 


g[x ]::x?/; x 20 < / ; isa conditional. A ssignment will be made only if x > 0. 
g[x ]:- x?/; x «0 

g[3] 

9 

91-31 

-9 


Using = would cause trouble, as M athematica cannot determine which branch should be taken until a 
value of x is supplied. 


EXAMPLE 40 You may think that the := assignment is more general and can be safely used in any given situation. 
This is true to a certain extent, but there are times when one should use -. As an extreme, but reasonable, example, 
let us define 


ЖЕНА ft ExpIt] Sin[t] at 


Each time a value of Е is computed, M athematica performs several "integration by parts" evalu- 
ations. Now imagine that many different values of F are needed, for example in the instruction 
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Plot[F[x], (x, 0, 43]. ThisplotsF[ x] from 0 to 4 using many points. Every time the value of F is 
computed, the integral is evaluated— from scratch— applying integration by parts each time. The result is 
a lengthy delay in displaying the graph. Using - causes the graph to be displayed more quickly. 


F[x_]:= ft Exp[t] Sin[t] at Fx 12 f't Exp[t] Sin[t] at; 
Plot[FIx], {x,0,1}]//Timing Plot[F[x], {x,0,1}]//Ti mi ng 


(16.203,93E (0.016,93 È 


0.2 0.4 0.6 0.8 1.0 


Note the significant difference in time required to plot this function. 


Often, you will want to evaluate an expression without assigning a value to a symbol. This can be done 
with theRepl aceAl (/. ) replacement operator. 


= expression /. rule applies a rule or list of rules to each subpart of expression. 


EXAMPLE 41 Suppose we want to evaluate x? + 5x + 6 when x = 3, but do not want to assign a value to x. 


Cl ear[x] 

x t5x £6]. x53 
30 

7х 


Global `x 
(x is left undefined) 


| . can also be used to replace an expression by another expression. Several replacements can be made 
at the same time if braces are used. 


EXAMPLE 42 


2х +3 +(2х 3?! ]. 2x 4 323y +5 
(Зу +5 + (Зу +5) 
ЕХАМРІЕ 43 
кі. (y 2x, x 2y) 
Vx +у? 


SOLVED PROBLEMS 


2.41 The Mathematica command Ex pand[ expression], which is discussed in Chapter 7, expands 
expression algebraically. Define two symbols, a and b, asExpand[( x + 1) ^3] , using = and :-, 
respectively. Then letx = u + v and computea and b. 
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SOLUTION 

а = Expand[ (x +1) ^3] 

1-3х-3х2-х? < Expansion occurs immediately. 

b :=Expand[(x +1) ^3] < Expansion does not occur until b is called. 
x=u+V; 

a 

1+3 (u+v)+3 (u* v, + (и +у)? < u + v replaces x after expansion. 
b 


1-«3u-«3u?^«u-«3v«6uve3u?ve3v?^«3uv?^« v? < u+v replaces x before expansion. 


2.42 The command Toget her , which is discussed in Chapter 7, combines the sum or difference of 
two or more fractions into one fraction. Define two symbols, y and 2, as Together [a+b] using, 
respectively, = and := . Then let a = 1/x and b = 1/ (x+1) and compute y апа z. 


SOLUTION 
y =Together[a +b] 
a+b < Atthis point a and b are not fractions so Toget her does nothing. 
2 :=Together[a +b] 
а-1/Х! 
b=1/(x +1); 
y 
=+ тту < SinceTogether was executed prior to the introduction 
of the fractions, the result is the sum of a and Б. 
2 
1%2х «- Together is executed after the fractions are introduced so 
х(1+х) 


the fractions are combined into one. 


2.43 The Mathematica command Fact or [ expression] attempts to factor the algebraic expression, 
expression. Typea = Factor[pol y] andb :=Factor[poly].Thenletpoly = х? + 2х +1. 
Computea and b and explain the difference in output. 


SOLUTION 

а = Factor[pol y]; 

b :=Factor[ poly]; 

poly =x?+2x+1; 

a 

1-2х-х2 

b 

(14x)? 

Since a is computed before poly is defined, its value is the factored form of the symbol poly, which 


is just poly. Then poly is replaced by x? + 2x + 1. On the other hand, b is not evaluated until 
called in the next to last line, so M athematica factors the polynomial. 


2.44 Replace x with x? + 2x + З in the expression х2 + 5x + 6. 
SOLUTION 
xX^*t5x $6]. x ox? +2 х +3 


64+5(3+2x+x*)+(3+2x+4+x?)? 
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2.45 Replace y with x + 1 and z with x + 2 in the expression (x + y + z}?. 
SOLUTION 


(x *ty *tz)?]. (y 5x *1, 2 ox +2} 
(3+3x)? 


2.6 Logical Relations 
Do not confuse = with ==, a "logical" equality. | hs == rhs is True if and only if 1ns and rhs have the 
same value; otherwise it is False. Logical equalities are used extensively in connection with equation 
solving (Chapter 6). 

Other logical relations are available. The following list summarizes them. 


Equal[x, y] orx «y is True if and only if x and y have the same value. 

Unequal [x, y] огх! = у orx zy is True if and only if x and y have different values. 
Less[x, y] orx «y is True if and only if x is numerically less than y. 

Greater[x, y] orx > y is True if and only if x is numerically greater than y. 
LessEqual[x, y] orx <= у orx <y is True if and only if x is numerically less than y or equal 
to y. 

m GreaterEqual[x, y] orx >= у orx >y is True if and only if x is numerically greater than у 
or equal to y. 


NotethatEqual andUnequal can be used for comparing both numerical and certain non-numerical quan- 
tities, whileLess,Greater,LessEqual , and GreaterEqual are strictly numerical comparisons. 


EXAMPLE 44 
1 == 11-2 1<-2 аға =- 2а 
False True True True 


2 ==2 2!=2 2<=2 a<a No conclusion can be drawn since 
a is undefined. 
True False True a<a 


Mathematica also includes the following logical operations: 


And[p, q] orp &&q orp ^q is True if both p and q are True; False otherwise. 
Or[ p,q] orp || q orp vq is True if porq (or both) are True; False otherwise. 
Xor[p, q] is True if p or q (but not both) are True; False otherwise. 

Not[p] ог! р огр is True if pis False and False if pis True. 

Implies[p, q] orp =q is False if pis True and qis False; True otherwise. 


Note: = сап be obtained with the key sequence [ESC], [=], [>], [ESC]. 
Logical expressions can be compared using Logi cal Expand. 


в" Logical Expand[ expression] applies the distributive laws for logical operations to expression 
and puts it into disjunctive normal form. 


EXAMPLE 45 Use Mathematica to verify the distributive law: p^(qvr) = (paq)v(par). 


Ths =p &&(q| |r); 

rhs =(p &&q)||(p &&r); 

| hs --rhs 

(p&& (q|| =) ) = (р&&а || p &&r) 

Logical Expand[l hs] «Logical Expand[rhs] 


True 
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SOLVED PROBLEMS 


2.46 Use М athematica to verify De M organ's laws: 
-(рл4) --ру-д and (руд) = =p ^-q 
SOLUTION 
Logical Expand[! (p &&q)] Logical Expand[!p || ! q] 
True 
Logical Expand[! (р || q)] Logical Expand[! p &&! q] 


True 


2.47 Show that ((p ^ 9) v (p ^ ^9)) v ((5p ^ 9) v (p ^ ^9)) is a tautology. 
SOLUTION 
Logical Expand[((p &&q) || ( p &&'q)) || ((!p &&q)]||(!p &&!q))] 


True 


2.7 Sums and Products 


Sums and products are of fundamental importance in mathematics, and M athematica makes their computa- 
tion simple. Unlike other computer languages, initialization is automatic and the syntax is easy to apply, 
particularly if the Basic Math Input palette is used. Any symbol may be used as the index of summation. 
(i is used in the following description.) Negative increments are permitted wherever increment is 
used. 


= Sum[a[i], ti, i max}] or Salil evaluates the sum Y a 
ізі | i=l | 
= Sum[a[i],ti,imi n, і max)] or У ali] evaluates the sum Y a, 


imax 
= Sum[a[i],ti,imin,i max, increment }] evaluatesthesum У a, instepsof increment. 
Summation continues as long as i < imax. i=imin 


EXAMPLE 46 To compute the m of the squares of the first 20 consecutive integers, we can type 


Sum[i ^2, (i, 1,203] or > 2 Note: Even though Mathematica allows the form 
Sum[i ^2, {i , 201] , the use of the initial index, 1, 
2870 is recommended for clarity. 


EXAMPLE 47 Compute the sum 1. + ut it + 
биті 1/1, {i, 15,51, 24] 


63 501 391 475 806 044 193 
96 845 140 757 687 397 075 


= NSum has the same syntax as Sum and works in a similar manner to yield numerical approximations. 


EXAMPLE 48 Approximate the sum t ++ b+ + 
NSum[1/i, {i, 15, 51, 2}] 
0.6557 


The limits of a sum can be infinite. M athematica uses sophisticated techniques to evaluate infinite 
summations. 
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EXAMPLE 49 Compute 1 1+1 l, E doa 


16* 
Sum[1/i 2, ti, 1, mE or yA 
m m 
6 


Double sums can be computed using the following syntax or, more conveniently, by clicking twice on 
the > symbol in the Basic Math Input palette. Тһе syntax extends in a natural way to triple sums, qua- 
druple sums, and so forth. 


i max j max imax jmax 
=» Sum[a[i,j], ti, i тах}, £j, j тах}] or ali, j] evaluates the sum Y, Уа, 
ігі ігі іі j=l 


imax |пах 
= Sum[a[i,jl, ti, imin, imax}, cj, jmin,j max] or У У ali, j] evaluates the sum 
imax јтах izimin jzj min 
Ma 
izimin j=jmin 
= Sum[a[i,j], ti,imin,imax,i increment}, cj, jmin,j max, | increment }] evaluates 
imax јтах 
thesum У Y a instepsof i increment and 3 increment. 
i=imin j=jmin 
= NSum, with identical syntax, returns numerical approximations to each of the sums described in 
Sum. 


ij 


EXAMPLE 50 Compute the value of 


(rine ene 3+3) 


3 4, 
Sum[i/j, ti, 1,3}, G, 1,43] or УУ: 


L 
aal 
25 
2 


Just as Sum computes sums, the M athematica function Product computes products. Its syntax is 
much the same as S u m. 


i max 


m Product[a[i], «і, i maxi] or Iti evaluates the product ә 


imax 


m Product[a[i], ti, i mi n, i тах} ] or П a[i] evaluates the product П a; 


i zi mi n і-ітіп 


m Product[a[i], ti, i min, i max, i ncrement 3] evaluates the product Пг in steps of 
increment. іліп 

в NProduct, with identical syntax, returns numerical approximations to each of the products 
described in Product. 


M ultiple products are also easily computed. The syntax for a double product is listed in the following, 
but the concept extends to triple products and higher. 


i max j max 


= Product[a[i,j], ti, i maxi, cj, j maxs] or [T] [[ati, j] evaluates the product 


imax jmax іші ігі 
II. 
іні ja imax ј тах 
m Product[a[i,j], ti, i m n, і мах}, {j,j тіп, ј maxs] or П [] ali, |1 evaluates the 
ітах јтах iziminjzjmin 
product П Па, 
i=imin j=jmin 


m Product[a[i,j],¢i,imin,imax,i_increment}, ¢j,jmin,j max, | increment } ] 


imax јтах 


evaluates the product П П aij instepsof i increment andj increment. 
і-ітіп j=jmin 
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EXAMPLE 51 Compute the product of the consecutive integers 4 through 9. 
Product[i, fi, 4, 9)] or Пі 
60 480 m 


EXAMPLE 52  Thebinomial coefficient С (n,k) = Em cg can be expressed as ШЕ aum 2 
for more efficient computation. U se this representation to compute С(10, 4). 


n=10; 

k Е 4; k-1 . 
Product[(n- i)/(k- i), £i, 0, k- 1)] or ET 
210 Ы 


SOLVED PROBLEMS 


2.48 Compute the sum of the first 25 prime numbers. 


SOLUTION 

25 
Sum[Prime[k], tk, 1, 253]. or YPrime[k] 
1060 7 


249 Compute the square root of the sum of the squares of the integers 15 through 30, inclusive. 


SOLUTION : 
Sqrt[Sum[k^2, {К, 15, 303]] or Ук: 
k=15 
6410 
250 Compute the infinite sum 1+4+2+44+44 
р 717181677 
SOLUTION 
i i i ni = 1 
Sum[1/2^, £i, 0, Infinity] or Y 
2 
2 can 99 
251 Compute the sum 1 5+5+%1+ +10 
SOLUTION 
99 А 
Уг 
i +1 


ізі 
264 414 864 639 329 557 497 913 717 698 145 082 779 489 
2 788 815 009 188 499 086 581 352 357 412 492 142 272 


2.52 Obtain a general formula for the sum of squares of the consecutive integers 1 through n. 


SOLUTION 
Sum k^, tk, 1, n] or УК? 
К-1 


2 (n) (l+n) (1%2п) <Mathematica has “memorized” these standard formulas. 
2.53 Compute the product of the first 20 Fibonacci numbers. 
SOLUTION 


20 
ПЕ волассі [і] or Product[Fibonacci[i], ci, 1, 203] 
ізі 


9 692 987 370 815 489 224 102 512 784 450 560 000 
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2.54 Compute the product of the natural logarithms of the integers 2 through 20. Obtain an approximation 
to 20 significant digits. 


SOLUTION 


N[Product[Log[i], fi, 2, 203], 20] 
1.3632878207490815857 x 10% 
2.55 Compute the sum 1+(1+5}+(1+549]+ ee +1+2+2+ x) 
SOLUTION 
Sum 1/j, ti, 1, 200, tj, 1,19] or Y yl 
41 054 655 aja] 
739 024 


256 Compute a numerical approximation of (1+3)(1+5+4) m (1+ lal duod m) 


SOLUTION | 
NProduct[Sum[1/j, tj, 1, i}], ti, 2, 10}] or pln 
1871.44 ч 


2.8 Loops 


Often you may need to repeat an operation or sequence of operations several times. A Ithough M athematica 
offers the ability to compute sums and products conveniently using the Sum and Product commands, 
there are times when your work may require the use of looping techniques. M athematica offers three basic 
looping functions: Do, Whi l e, andFor. 


= Do[ expression, {k}] evaluates expression precisely k times. 

= Do[expression, {i , i max}] evaluates expression imax times with the value of i changing from 
1to imax in increments of 1. 

= Do[expression, ti , i mi n, i тах }] evaluates expression with the value of i changing from 
imin to imax in increments of 1. 

= Do[expression, {i, i min, i max, i ncrement 3] evaluates expression with the value of i 
changing from iminto imaxin increments of increment. 

= Do[expression, {i, i mi n, imax}, {j, j min, | maxi] evaluates expression with the value 
of i changing from imin to imax and 3 changing from jmin to jmax in increments of 1. The 
variable i changes by 1 for each cycle of j. This is known as a nested Do loop. 

= Do[expression, «i, i ті п, imax, i increment), 

tj, jmin, j max, j_increment},...] 

forms a nested Do loop allowing for incrimination values other than 1. 


The last two forms of the command may be extended to three or more variables. 
EXAMPLE 53 


Do[ Print[ "This line will be repeated 5 times."], {5}] 


This line will be repeated 5 times. 
This line will be repeated 5 times. 
This line will be repeated 5 times. 
This line will be repeated 5 times. 
This line will be repeated 5 times. 


EXAMPLE 54 This example computes the sum of consecutive odd integers from 5 to 25. (Of course, the Sum 
command is more convenient.) 
mysumz 0; < Initialization of mysum. This step is important. 
Do[ туѕит = туѕит+ К, £k, 5, 25,23] Itis not needed if the command Sum is used. 
= I I I I 
mysum 
165 
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EXAMPLE 55 This example computes the sum of all fractions whose numerators and denominators are positive 
integers not exceeding 5. 
fracsum=0; 
Do[fracsum=fracsum+i/j, {i,1,5},{j,1,5}] 
fracsum 
137 
4 
= Whi | е[ condition, expression] evaluates condition, then expression, repetitively, until condition 
is False. 
If expression consists of multiple statements, they are separated by semicolons. 


EXAMPLE 56 


2:1; While[n<6, Print[n]; n ++] п = п+1 may be used in place of. n++ 
See page 37. 


OPP WNP 3 


= ог [ initialization, test, increment, expression] executes initialization, then repeatedly evaluates 
expression, increment, and test until test becomes False. 


After initialization, the order of evaluation is test, expression, and then increment. The For loop 
terminates as soon as test gives False. If initialization, test, increment, or expression consists of multiple 
statements, they are separated by semicolons. 


EXAMPLE 57 
For[i =1, i <5, i ++, Print[i]] 
1 
2 
3 
4 
5 


Although itis not a loop, the I f instruction is often used in conjunction with other loop commands. 


= |f[condition, true, false] evaluates condition and executes true if condition is True and executes 
false if condition is False. 

= | f[ condition, true] evaluates condition and executes true if condition is True. If condition is 
False по action is taken and Nu11 is returned. 

= | f[ condition, , false] evaluates condition and executes false if condition is False. If condition 
is True no action is taken and Nu11 is returned. (Note the double comma.) 

= |f[condition, true, false, neither] evaluates condition and executes true if condition is True, ex- 
ecutes false if condition is False, and executes neither if condition is neither True nor False. 


EXAMPLE 58 
If[222,Print[ "TRUE"], Pri nt[ "FALSE"], Pri nt[ "NEITHER"]] 
TRUE 
If [2 23, Pri nt[ "TRUE"], Pri nt[ "FALSE"], Pri nt[ "NEITHER"]] 
FALSE 


If[7, Print[ "TRUE"], Pri nt[ "FALSE"], Pri nt [ "NEITHER"]] 
NEITHER 
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The next example, which separates primes from non-primes, illustrates how thel f instruction can be used in a 
Do loop. 


EXAMPLE 59 
Do[If[Pri meQ[k], Print[k], Print[" ", k]], {К, 1, 201] 


11 


13 


17 


19 


1 


e о о 


20 


SOLVED PROBLEMS 


257 


2.58 


2.59 


Compute 10! using a Do loop. 

SOLUTION 

factorial = 1; 

п = 10; 

Do[factorial =factorial*k, {k, n}] 
factorial 

3628800 


Compute 10! using a Whi I e loop. 
SOLUTION 


factorial =1; 

n=10; 

While[n>0, factorial =factorial кп) n--] 
factorial 

3628800 


Compute 10! using aFor loop. 
SOLUTION 


For[factorial =1; n=1, п <10, п++, factorial =n* factorial] 
factorial 
3628800 
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2.60 Print all numbers from 1 to 20 which are not multiples of 2, 3, or 5. 
SOLUTION 


Do[If[Mod[k,2] #0 && Mod[k, 3] 8066 Mod[k, 5] # 0, Print[k]], tk, 1, 20] 

or 

Do[If[Mod[k,2] --0 || Mod[k, 3]1=0 || Mod[k, 5] --0,, Print[k]], tk, 1, 203] 
T 

7 

TI 

13 

17 

19 


2.61 For each number k from 1 to 10, print half the number if k is even and twice the number if k is odd. 
SOLUTION 
Do[If[EvenQ[k], Print[k/2], Pri nt[2 k]], £k, 1, 103] 


2.9 Introduction to Graphing 


The graph of a function offers tremendous insight into the function's behavior and can be of great value 
in the solution of problems in mathematics. M athematica offers some very powerful graphics commands 
that are remarkably easy to implement. A Ithough there is a vast array of options available for customization 
of output, in this section we deal only with the most rudimentary forms using M athematica's defaults. A 
more detailed discussion of graphics commands appears in Chapters 4 and 5. 

ТһеРІ ot command plots a two-dimensional graph of a function. 


= Plot[f[x], £x, xmi n, xmax? plotsatwo-dimensional graph of the function f(x) on the interval 
xmin < x < xmax. 

= Plot[cf[x], tg[ x] >, {x, xmi n, xmax}] plots two functions on one set of axes. This extends 
in a natural way to three or more functions. 


EXAMPLE 60 Plot the graph of y = x? on the interval -5 <x <5. 
Plot[x?, {x, -5, 51] 


25+ 
20+ 


15; 
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EXAMPLE 61 Plot the functions y = x? and y = 2x10, -5 <x € 5, on the same set of axes. 
Plot[(x?, 2x +102, (x, -5, 53] 


25- 


20} 


SOLVED PROBLEMS 


2.62 Sketch the graphs of y =x’, y =x?, and y =х*, 0 < x <1, on the same set of axes. 
SOLUTION 
Plot[ GC, X?, x4}, x, 0, 11] 


1.0} 


ost 
061. 
041 


021 


02 04 0.6 08 10 
2.63 Sketch the graphs of the functions y = -x, y =x, and y = x sin x on the interval -6r < x < бл on one 
set of axes. 
SOLUTION 
Plot[£x, -x, x Sin[x] }, (x, - бл, 611] 
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2.64 Sketch the graphs of the functions y = –х?, y = x?, andy = х? ШЕ on the interval [-.02, .02] on one 
set of axes. 


SOLUTION 


Plot[(-X?, x?, x?Sin[1/ x], (x, -.02, .021] 


0.0004 F 


N 


иш! T | | 
її 


|| || | 
[ү 


Ц 


-0.0004 


2.10 User-Defined Functions 
Suppose we want to define a function, f, of a single variable. If x is the independent variable, we write 


or БЕС за ыы 


wherethe right-hand side of the definition tells M athematica how to compute the value of f for a given value 
of x. All legitimate M athematica operations, including references to built-in functions, are acceptable. 

Note the underscore immediately to the right of the x on the left-hand side of the definition. This is 
crucial. It is the only way M athematica knows that x is a "dummy" variable and can be replaced by any 
expression, numerical or symbolic. 


EXAMPLE 62 
f[x ]2x? * x5 
Ң?21 
12 
f[2 x] 
4х2 +8 х? 
f[ExpIx]] 
e?* + езх 
А 
А + А 
A “piecewise” function can be defined using ће / ; conditional. Simply put, 
f [ x_] := expression / ; condition 


assigns f [ x] the value expression if and only if condition is true. Note: In this application, the := assignment 
must be used. 
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х2 ifxx2 


EXAMPLE 63 We define the function f(x) = 
8-2x ifx»2 


f[x ]:x?]; x <2 

f[x 1:=8 - 2x [ ; x 52 
f[-4] 

16 

f[4] 

0 

Plot[f[x], £x, 0, 41] 


Functions are sometimes defined recursively. One or several values of the function are specified and 
later values are defined in terms of their predecessors. 


EXAMPLE 64 The Fibonacci sequence can be defined recursively by defining f(1)- 1, f(2) 2 1, and 
f(n) = {п - 2) + {п - 1) for n > 3. We will compute the 35th Fibonacci number using this definition. 


Н11:1; 

f[2]=1; 

[n]: f[n- 2] +ffn- 1] N ote the use of := here. This is important. Experiment 
f [35] and see what happens if = is used. 

9 227 465 


You may have noticed a long pausein the calculation of this number. To see this more precisely, we will 
time the operation. (Y our times may be slightly different, depending upon your computer.) 


f£[35]// Timing 
{49.422,9227465} 


Intermediate calculations have not been stored. Each computation of £ [n] necessitates the compu- 
tation of £ [2-2] and £ [n-1], each of which causes all values of ғ down to £ [3] to be computed. 
Since each intermediate value of £ is computed recursively based upon the values of £ [1] and £ [2], 
the result is that it takes an extremely large number of iterations to compute £ [35]. To eliminate this 
problem, we can store each value of £ in memory as it is computed. The values can then be recalled 
almost instantaneousl y. 


EXAMPLE 65 
f[1] =1; 
f[2] 21; 


f[n ] :sf[n] =f[n- 2] +f[n- 1] 
f£[35]// Timing 


{0 


., 9227465} 
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< This causes Mathematica to store each £ [n] value. 
Type? f after computing £ [35] to confirm this. 


Functions of two or more variables can be defined in an analogous manner. T he syntax is self-explanatory. 


EXAMPLE 66 


f[x ,y ] 2x? *y5 
f[2, 3] 


31 


f[3, 2] 


17 


EXAMPLE 67 


g[x ,y oz ])*x*y*z; 
g[2, 3, 4] 
14 


SOLVED PROBLEMS 


2.65 Define f(x) to be the polynomial x? + 3x4 - 7x? +2 and compute f(2). 


2.66 


SOLUTION 
f[x ] 2x? *3x* - 7x? « 2 


2-7х2 + 3x* + х5 


Ң 21 
54 
ES ifx <0 
Let f(x) 24x? ІҒ0<х<3 
18-3х ifx>3 


Sketch the graph of f(x) 0г-6<х<6. 


SOLUTION 


f[x ] :-x/; x <0 

f[x ]:x?/; 0 «x <3 
f[x ]:18- 3x [; x >3 
Plot[f[x], £x, -6, 64] 
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2.67 


2.68 


2.69 


If f(x) is defined оп an interval (а, b], the periodic extension of f with period T =b - a is the function 
F such that 
P ifa<x<b 
Е (x)= 


f(x-T) otherwise 
Let f(x) 2x? if -1<x<1.Plotthe periodic extension of f with period 2 from x = 0 to x= 10. 
SOLUTION 
f[x ]2x*; 
F[x ]:f[x]/; -1<х<1 
F[x ]:FI[x-2]/; x51 
Plot[F[x], £x, 0, 107] 


10} 
08 | 
06| 
04 | 


02! 


Define the function f(n): 


f(n) = f(n-3)- f(n-2)- f(n-3) if n24 


Compute f(20). 
SOLUTION 


Cl ear[f] 

f[1]=1; 

f[2]=2; 

f[3]=3; 
fIn_]:=f[n]=f[n-3]+f[n-2]+f[n-1]; 
f[20] 

101902 


Define a function that represents the distance from the point (x, y) to (3, 4) and compute the value of 
the function at the point ( 5, - 3). 

SOLUTION 

Рх, y 15 Mx - 3! *(y - а); 

f[5, -2] 

2.10 


2.70 


2.71 
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Define a function that represents the distance between the points (хі, Yı) and (x;, y;) and use it to 
compute the distance from (2, 3) to (8, 11). 


SOLUTION 

d[xl , yl_, x2 , y2_J= 4x2 - x1? *(y2 - yl); 
d[2, 3, 8, 11] 

10 


The area enclosed by a triangle whose sides have length a, b, and c is given by Heron's formula: 


К = Js(s - а)(5 - 0)(5 c) 
where 5- aspe Express the area of a triangle as a function of a, b, and c and compute the area 
of the triangle whose sides are (a) 3, 4, 5 and (b) 5, 9, 12 
SOLUTION 


sz Rte, 


k[a_, b, е ]= V8 (5 - a)(s - b)(s - c); 
k[3, 4, 5] 

6 

k[5, 9, 12] 

4/26 


2.11 Operations on Functions 


If f and g aretwo functions with the same domain, D, we define their sum, difference, product, and quotient 
pointwise, that is, 


(f+g )(x)=f(x)+9(x)  forall xinD 
(f - g )(x) =f(x) - g(x) forallxinD 
(fg) (х) = f(x) g(x for all x in D 
(f/g)(x) = f(x)/g(x) for all x in D for which g(x) #0 


If x is a number in the domain of g such that g(x) is in the domain of f, we define the composite 
function fog: 


(fog)(x) = f(g(x) ) 


The function gof can be defined in a similar manner. The following example illustrates how to construct 
these functions. 


EXAMPLE 68 
f[x l= vx; 
g[x ]2x? +2х +3; 
hi[x ]2fix]* gI[x] 
34 Vx + 2х + x? 
h2[x_]=f[x]- g[x] 
-3+/х-2х-х? 
h3[x_]=f[x]g[x] 
Мх (342x4 x?) 
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h4[x_]=f[x]/g[x] 
Ух 


3%2х-х2 
h5[x_]=f[g[x]] 
/з+2х+х?* 
h6[x_]=g[f[x]] 
3-2 4x «x 


The composition of two or more functions can be accomplished with the Composi ti on command. 
Note that Composition is a functional operation and as such, its arguments are functions, £, not 
£ [x]. 


= Composition[f 1, f2, f3, ...] constructs the composition £10 £20£3... 


EXAMPLE 69 


f[x.] = VK; 

g[x ] =x?4+2x +3; 

hl =Composition[f, gl; 
h1[ x] 

h2 =Composition[g, f]; 
h2[ x] 

342Vx4x 


If we wish to compute the composition of a function with itself we could, of course, useComposition[f, f], 
Composition[f, f, f],andsoforth.A more convenienttool isNest orNestList. 


в Nest[f, expression, n] applies £ to expression successively n times. 
m NestList[f, expression, n] applies £ to expression successively n times and returns a list of 
all the intermediate calculations from 0 to n. (Lists are discussed in detail in Chapter 3.) 


EXAMPLE 70 


f[x ]2x?; 
Nest[f, x, 5] 


х3? 


NestList[f, x, 5] 
82 xi, х16, x?) 
Nest[f,2x * 3, 5] 
(3422x)?? 
NestList[f, 2x +3, 5] 


{3+2x, (3+2x)?, (3«2x)*, (34+2x)®, (34+2x)', (3+2x)??} 


(x, хі, x 


EXAMPLE 71 The function Fr a med[ symbol] draws a frame around symbol. We can use Nest and Nest Li st 
to show the effect of repetitive framing. 
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Nest[Framed, x,10] 


NestList[ Framed, x,10] 


SOLVED PROBLEMS 


2.72 If f(x) = sin x +2 cos x and g(x) = 2 sin x - 3 cos x, construct ( f + g) (x), ( f - g) (x), (Ға) (x), and 
( f/g) (x) and evaluate them at 1/2. 


SOLUTION 

f[x_]=Sin[x]+2Cos[x]; 

g[x 12 2Si n[x]- 3Cos[x]; 
hi[x_]=f[x]+g[x] 

-Cos [x] + 3 Sin [х] 

h2[x_]=f[x]- g[x] 

5 Cos [x] - Sin [x] 

h3[x_]=f[x] g[ x] 

(2 Cos [x] + Sin [x] ) (-3Cos [x] + 2Sin[x]) 
h4[x_]=f[x]/g[x] 


2Cos[x] + Sin[x] 
-3Cos[x] +251п[х] 


һ1[л/ 2] 
3 

һ2[л/ 2] 
-1 
һ3[л/ 2] 
2 

һ4[л/ 2] 
1 


2 
273 Let f(x) Lex . Compute ( fofofofof )(x). 
SOLUTION 
f[x 12 x ; 
Nest[f, x, 5] 


de esr кете 
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274 Let f(x) = 1.1 еі f^(x) =(fo fo...0 f)(x). Evaluate f(x), f2(x), f?(x), f^(x), and f(x). Thenevaluate 
ошо 


қа), f2(1), ғ(),..., 21). W hat do you observe? Convert to a decimal form and approximate 
lim f^(1). 


SOLUTION 


X 
NestList[f, x, 5] 


NestList[f, 1, 20] 


1 1235 8 132155 89 144 233 377 610 987 1597 2584 4181 6765 10946 
'2'3'5'8'13'21'34'89'144'233'377'610'987'1597'2584'4181'6765'10 946717711 


The numerators (and denominators) appear to be terms of the Fibonacci sequence. 


NestList[f, 1, 20] // М 


(1.,0.5,0.666667,0.6,0.625,0.615385,0.619048,0.617647,0.618182,0.617978, 
0.618056,0.618026,0.618037,0.618033,0.618034,0.618034,0.618034, 
0.618034,0.618034,0.618034,0.618034) 


The numbers appear to be approaching a limit of approximately 0.618034. 


2.75 |f x is an approximation to Va , it can be shown that i +®) is a better approximation. (This is a 


special case of Newton's method.) Use Nest Li st to observe the first 10 approximations obtained 
in computing v3 , starting with x = 100. 


SOLUTION 
а=3; 

= 1 а |, 
Не p(x + 2); 


Nestlist[f, 100, 10] // М 
{100., 50.015, 25.0375, 12.5787, 6.40858, 3.43835, 2.15543, 1.77363, 
1.73254, 1.73205, 1.73205} 


Lists 


3.1 Introduction 
Lists are general objects that contain collections of other objects. In reading this chapter you will see that 
lists are used for a variety of applications. Therefore, M athematica offers an extensive collection of list 
manipulation commands. 

The objects within a list are contained within curly brackets, { }. Alternatively, the Li st command 
may be used to define a list. 


= List[ elements] represents a list of objects. elements represents the members of the list separated 
by commas. Li st [ elements] is equivalent to { elements} . 


(1, 2, 3, 4} isalistof numbers. Li st[1, 2, 3, 4] represents the same list. 


EXAMPLE 1 
List[a, b, c, d] 
(a,b,c,d) c List[a, b, c, d] isequivalentto (а, b, c, d}. 


Lists can be given symbolic names so they can be easily referenced. A ny operation performed on a list 
will be performed on each element of the list. 


EXAMPLE 2 
list ={1, 2, 3, 4, 5, 6, 7, 8, 9, 10} 
{1, 2, 3, 4, 5, 6, 7, 8, 9, 10) W hen executing these instructions, care must be taken 
L/ list to use alowercase! inl ist to avoid conflict with the 
Mathematica command Li st. 

Е ЕЕРЕЕ ae oe 
| oat 
list? 
(1,4, 9, 16, 25, 36, 49, 64, 81, 100) 

list 


(1, V2, Уз, 2, V5, V6, V7, 2/2, 3, 410) 


If two or more lists contain the same number of elements, new lists can be created using standard 
operations. 


EXAMPLE 3 


listl={1, 2, 3, 4, 5}; 
list221(2, 3, 2, 3, 2}; 


listl+list2 
134545; 7; 73 
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listl*list2 
{2, 6, 6, 12, 10} 


listl/list2 


Listas 
{1, 8, 9, 64, 25} 


The following list commands are simple but extremely useful: 


= Total [list] gives the sum of the elements of list. 

=» Accumul at e[ list] returns а list having the same length as list containing the successive partial 
sums of list. 

= Max[ list] returns the largest number in list. 

= Mi n[ list] returns the smallest number in list. 


EXAMPLE 4 
list ={1, 2, 3, 4, 5} 
Total[list] 
15 


Accumulate[li st] 
(1,3,6,10, 15) 


Max[list] 
5 
Min[list] 


1 
SOLVED PROBLEMS 


3.1 Construct a list of the factorials of the integers 1 through 10. 
SOLUTION 
list 2 (1, 2, 3, 4, 5, 6, 7, 8, 9, 10}; 
list! 
(1, 2, 6, 24, 120, 720, 5040, 40320, 362 880, 3 628 800) 
3.2 Construct a list of the first ten positive integer powers of 2. 
SOLUTION 
list ={1, 2, 3, 4, 5, 6, 7, 8, 9, 10}; 


2!ist 
(2,4, 8, 16, 32, 64, 128, 256, 512, 1024] 


3.3 Construct a list whose elements are the sum of the squares of the first five positive integers added to 
their respective cubes. 


SOLUTION 


list =(1, 2, 3, 4, 5) 


list? *list? or list^24list ^3 
(2, 12, 36, 80, 150) 
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34 Definelisti- (1,3, 5, 7,9) andlist2 = (2, 4, 6, 8, 10}. Construct alist whose five 
elements are the products of the entries of the two lists. 


SOLUTION 


listl={1, 3, 5, 7, 9}; 
list2={2, 4, 6, 8, 10); 
listl*list2 

{2, 12, 30, 56, 90} 


3.2 Generating Lists 


The most common lists are lists of equally spaced numbers. The Range command allows convenient 
construction. The values of m, n, and а іп the following description need not be integer valued. Negative 
values are acceptable as well. 


m Range[n] generates a list of the first n consecutive integers. 
= Range[m, n] generates alist of numbers from mto n in unit increments. 
m Range[m, n, d] generates a list of numbers from m through n in increments of а. 


EXAMPLE 5 


Range[10] 

(1,2,3,4,5,6, 7, 8, 9, 10) 
Range[5, 10] 

{5, 6, 7, 8, 9, 10} 

Range[25, 5, -2] 

(25, 23, 21, 19, 17, 15, 13, 11, 9, 7, 5) 
Range[1/3, 1, 1/12] 

E Boch * 23% di Ц 


3'12'2'12'3'4' 6' 12' 
Range[1, 2, .1] 
Ub. 15:2, 1:3,1.4,14.5, 1416, 1.7; 1:8, 4.9, 2.) 


Lists with more complicated structures can be constructed with the Tabl e command. There are several 
different forms. 


= Table[expression, {n}] generates a list containing n copies of the object expression. 

в" Table[expression, tk, n}] generates a list of the values of expression as к varies from 1 to n. 

= Table[expression, (k, m, n}] generates a list of the values of expression as k varies from m 
to n. 


= Table[expression, {k, m, n, d}] generates a list of the values of expression as к varies from 
mto n in steps of d. 


EXAMPLE 6 


Table[ "Mathematica", {10}] 
(Mathematica, Mathematica, Mathematica, Mathematica, Mathematica, 
Mathematica, Mathematica, Mathematica, Mathematica, Mathematica] 
Tabl e[ k?, { К, 10)] 
(1,4,9, 16, 25, 36, 49, 64, 81, 100) 
Table[1/k, £k, 5, 131] 
A di i i 1 1 1 1 1 
5'6 7' 8' 9' 10' 11' 12' 13 
Table[ Jk, £k, 5, 13, 2)] 
15, Үт, з, V11, Vis} 
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The command Array is useful for defining sequences. 


m Array[f, n] generates alist consisting of n values, £ [1] , £ [2], ..., £ [n]. 
m Array[f, n, r] generates a list consisting of n values, £ [i], starting with £ [r], i.e., 
£[r], f[r+1],...,f[r+n-1]. 
EXAMPLE 7 
Clear[f] 
Аггау[#, 7] 


t£[1], £[2], £ [3], £[4], £ [5], £[61, £071) 


Аггау[#, 7, 3] 
{ЁҒ [31], # [4], £ [5], £ [6], £ [7], £ [8], Ғ(9)) 


EXAMPLE 8 


f[x ] 2x? tx * 1; 

Аггау[#, 7] 

(3,7, 13, 21, 31, 43, 57) 

Array[f, 7, 3] 

(13, 21, 31, 43, 57, 73, 91) 

Array[f, 7, 0] 

(1,3,7,13,21, 31, 43) <The first element is £ [0]. 

Array[f, 7, -2] < Negative values are allowed in the third position only. 
{3,; 1,1, 3; 7; 13; 213 


Nested lists are lists that contain lists. For example, 
{{1,2,3,4},{2,3,4,5},{3,4,5,6}} 


is a nested list of depth two, consisting of three lists, each of which is a list of four integers. 
Nested lists can be generated using theTabl e and Ar r ay commands. All indices have unit increments. 


= Tabl e[ expression, {m}, {n}] generates a two-dimensional list, each element of which is the 
object expression. 

в" Table[expression, (i, m, n,;},{j, m, n,}] generates a nested list whose values are 
expression, computed as j goes from m, to n, and as i goes from m, to n,. The index j varies most 
rapidly. 

m Array[f, «m, n}] generates a nested list consisting of an array of m elements, each of whichis ап 
array of n elements, whose values аге £ [i,j] as j goes from 1 to n and i goes from 1 to m. Here 
f is a function of two variables. The second index varies most rapidly. 

и Array[f, {т, п}, (r, s3] generates a nested list consisting of an array of m elements, each of 
which is an array of n elements. The first element of the first sublistis £ [r, s]. 


Each of the previous descriptions extends in a natural way to lists of greater depth. 
EXAMPLE 9 


Table[ "Mathematica", (3), (4)] 

((Mathematica, Mathematica, Mathematica, Mathematica], 
(Mathematica, Mathematica, Mathematica, Mathematica], 
(Mathematica, Mathematica, Mathematica, Mathematica} } 


EXAMPLE 10 
Table[i +j, ti, 1, 3}, tj, 1, 51] 
0(2; 3, 4, 5, 6}, 13, 4, 5, 6, 7}, (4, 5, 6, 7, 8}} 


i=1 i=2 i=3 
ј=1,2,3,4,5 ј=1,2,3,4,5 ј=1,2,3,4,5 
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Table[i +j, ti, 1, 5}, tj, 1, Зр 


{{2, 3, 4}, {3, 4, 5}, (4,5,6) (5,6,7), (6, 7, 8}} 


=] i-2 i-3 i-4 i=5 
ј=1,2,3 ј=1,2,3 ј=1,2,3 ј=1,2,3 ј=1,2,3 
ЕХАМРІЕ 11 
Clear[f] 


Array[f, (3, 43] 

{{£[1,1], £[1,21, £[1,3], £[1,4]}, 
{£[2,1], [2,2], Ғ12,31, Ғ/2,41), 
{Е [3,1], £13,2], £13,3], £[3,41)) 


EXAMPLE 12 


f[x ,y ]2x?43y 

Array[f, (3, 4)] 

{{4, 7, 10, 13), (7, 10, 13, 16), (12, 15, 18, 21}} 
Array[f, (4, 3}] 

{{4, 7T, 10), (7; 10, 133,112, 15, 181, (19, 32, 25%) 
Array[f, (4, 3}, 50,05 

{{0, 3, 6}, (1,4,7), (4, 7, 10}, (9, 12, 15}} 


Often it will be convenient to construct lists of letters and other characters. 


m Characters[string] produces a list of characters in string. 
в CharacterRange[ "charl", "char2"] produces a list of characters from char1 to char2, based 
upon their standard A SCII values (assuming an A merican English alphabet). 


EXAMPLE 13 


Characters[ "Mathematica"] 


(M,a,t,h,e,m,a,t,i,c,a) 


EXAMPLE 14 


CharacterRange[ "a", "e"] 

{a,b,c,d,e} 

CharacterRange["","~"] 

PETE E 6,3; (uos ‚=, .,/0,1„2,3,4,5,6,7,8,9,4, T, «975, 9; Q; 
А,В,С, D-E; FG, HL JKG; M-N; О P,Q,R,S9,T,U,V,W,X,Y,4, Li Wi a ^V. ab, 
e,d,e,f,g,h,i,j,k,l,m;n,O;D,Gq,ft,8,t,;u,V,W,X, Y, Z, 6, |, }у =) 


Even though the output of Characters and CharacterRange appears to be individual char- 
acters, in actuality they are strings of length 1. By M athematica's convention, quotation marks are not 
printed. 


EXAMPLE 15 


digits = CharacterRange[ "о", " 9"] 

(0,1,2,3,4,5,6, 7,8,9) < These are not numbers but strings of characters of length 1. 
FullForm[digits] 

Lhist["O0", "IW. "2", СР "4", "Б", "6", кз; "BM. "9"] 
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SOLVED PROBLEMS 


3.5 


3.6 


3.7 


38 


Construct a list of the positive multiples of 7 that do not exceed 100. 
SOLUTION 1 

Range[7, 100, 7] 

(7, 14, 21, 28, 35, 42, 49, 56, 63, 70, 77, 84, 91, 98) 
SOLUTION 2 

Table[7k, £k, 1, 143] 

(7, 14, 21, 28, 35, 42, 49, 56, 63, 70, 77, 84, 91, 98) 
Construct a list of the first ten prime numbers. 

SOLUTION 1 


Table[Pri me[k], £k, 1, 10}] 
(2,3, 5, 7, 11, 13, 17, 19, 23, 29} 


SOLUTION 2 


Array[Pri me, 10] 
{2, 3, 5, 7, 11, 13, 17, 19, 23, 29) 


SOLUTION 3 

Prime[Range[10]] 

12, 3, 5, 7, 11, 13, 17, 19, 23, 29) 

Construct a list of the reciprocals of the first ten even integers. 
SOLUTION 1 

Table[1/k, £k, 2, 20, 21] 


1111 1 1 1 1 1 1 
2' 4' 6' 8' 10' 12' 14' 16' 18' 20 


SOLUTION 2 


1 
Range[2, 20, 2] 
BLLLILILLi 


2' 4' 6' 8' 10' 12' 14' 16' 18' 20 
Construct a list of five objects, each of which is alist consisting of six integers. The first list is to contain 
the first six multiples of 2, the second, multiples of 3, the third, multiples of 4, and so forth. 
SOLUTION 1 


Table[i*j, £i, 2, 6}, {j, 1, 60] 
(12,4, 6,8, 10, 12}, 13, 6, 9, 12, 15, 18}, (4, 8, 12; 16, 20; 24), 
(5, 10, 15, 20, 25, 30), (6, 12, 18, 24, 30, 36)) 


SOLUTION 2 


Array[Ti mes, £5, 6}, (2, 1)] 
((2, 4, 6, 8, 10, 12), (3, 6, 9, 12, 15, 18), (4, 8, 12, 16, 20, 24), 
(5, 10, 15, 20, 25, 30), (6, 12, 18, 24, 30, 36}} 


Times[x, yl2x* y 
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З.Ә Let p(x) = х? - 8х + 10. Construct а list of values of p(x) огх-1,2,3,...,10. 
SOLUTION 1 


p[x 1 2x?- 8x * 10; 


Array[p, 10] 
(3, -2, -5, -6, -5, -2, 3, 10, 19, 30) 


SOLUTION 2 
p[x 1 2x?- 8x +10; 


p[Range[10]] 
(3, -2, -5, -6, -5, -2, 3, 10, 19, 30) 


3.10 Approximate the sum of the square roots of the first 100 positive integers. 
SOLUTION 


Total[Sqrt[Range[100]]] // N 
671.463 


3.3 List Manipulation 


m Length[list] returns the length of list, i.e., the number of elements in list. 
m First[list] returns the element of list in the first position. 
m Last[list] returns the element of list in the last position. 


EXAMPLE 16 


list ={a, b, с, d, е, f, 9}; 
Length[list] 


7 
First[list] 
a 
Last[list] 
g 


Thefunction Part returns individual elements of a list. 


= Part[list, КІ orlist[[k]] returns the kth element of list. 
= Part[list, -k] orlist[[-k]] returns the kth element from the end of list. 


Note: Part[list, 1] andPart[list, -1] areequivalenttoFi rst[list] and Last[li st], 
respectively. 


EXAMPLE 17 


list ={a, b, c, d; e, f, g}; 
Part[list, 1] or list[[1]] 
Pro 3] or list[[31] 
TE or list[[-31] 
КІ -1] or list[[-11] 
g 


Lists may be nested. Тһе elements of a list may themselves be lists. 
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EXAMPLE 18 


list = ££a, b, c, d}, £e, f, g, h}, fi, j, K, 123; 
First[list] 

(а, Б, с, а) 

Last[list] 

{iz Je Ke Lt 

list[[2]] 

{e, £, g, h} 


Sincel i st[[2]] isitself alist, its third entry, for example, can be obtained asl ist[[2]][[3]] 
(the third entry of the second list). For convenience, this can be represented aslist[[2, 3]] or 
Part[list, 2, 3]. Part[Part[list, 2], 3] сап also be used, but is somewhat clumsy. 


= Part[list, m, n] orlist[[m, n]] returnsthenth entry of the mth element of 1ist, provided 
list has depth at least 2. 


This command extends to lists of depth greater than 2 in a natural way provided theP art specification 
does not exceed the depth of the list. 


EXAMPLE 19 
list 2 { а, b, c, d}, fe, f, g, h}, fi, j, k, 123; 
list[[2]][[3]] 
g 
list[[2, 3]] 
g 
Part[list, 2, 3] 
g 
Part[Part[list, 2], 3] 
g 


Lists can be modified several different ways. If | i st is any list of objects, 


Res t [ 1150] returns list with its first element deleted. 

Take[list, n] returns a list consisting of the first elements of list. 

Take[list, {п} ] returns a list consisting of the nth element of list. 

Take[list, - n] returns a list consisting of the last n elements of list. 

Take[list, {-n}] returns alist consisting of the nth element from the end of list. 

Take[list, (m, n3] returns a list consisting of the elements of list in positions m through n 
inclusive. 

в Take[list, {m, n, k}] returns a list consisting of the elements of list in positions m through n in 
increments of к. 


EXAMPLE 20 


list ={a, b, c, d, e, f, g}; 
Rest[list] 

{b, c, d, e, £, g} 
Take[list, 3] 

{a, b, c} 

Take[list, -3] 

{e, £, g} 

Take[list, {3}] 

{c} 
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Take[list, {-3}] 

(е) 

Take[list, £2, 53] 
{b, c,d, е} 
Take[list, {1, 5, 2}] 
{a, c, e} 


Elements сап be deleted from a list by using the Del et e command. 


= Delete[list, n] deletes the element in the nth position of list. 
= Delete[list, - n] deletes the element in the nth position from the end of list. 
m Delete[list, {{p,}, {р,},... }] deletes the elements in positions pa p. ... 


EXAMPLE 21 


list ={a, b, с, d, е, f, 9}; 
Delete[list, 3] 

fa, b, d, e, Ғ,а) 
Delete[list, -3] 

(a, b, c, d, É, 9} 
Delete[list, {{2}, {5}, {6}}] 
{a, c,d, 9} 


Del ete can also be used for lists of greater depth. 


m Delete[list, tp, q}] deletes the element in position q of part p. 
= Delete[list, тір), qi, {Pa qi»; » + .] deletes the elements in position а, of part p,, 
position q, of part pa, ... 


This command extends in a natural way to lists of greater depth. 


EXAMPLE 22 


list ={{1, 2, 3}, (4, 53, (6, 7, 8, 99); 

Delete[list, 2] 

{{1,2,3},{6,7, 8, 9}} 

Delete[list, (3, 2}] 

{{1,2,3},{4,5},{6,8,9}} < Тһе second element of the third sublist is deleted. 

Delete[list, {{1, 2}, (3, 311] 

{{1, 3}, {4,5}, {6, 7, 9}} < The second element of the first sublist and the third element of 
the third sublist are deleted. 


The function Dr op is similar to Del ete and allows a little more flexibility. 


Drop[ list, n] returns list with its first n objects deleted. 

Drop[list, - n] returns list with its last n objects deleted. 

Drop[list, {n}] returns list with its nth object deleted. 

Drop[list, {- n3] returns list with the nth object from the end deleted. 

Drop[list, {m, n3] returns list with objects m through n deleted. 

Drop[list, {m, п, КН returns list with objects m through n in increments of k deleted. 


Note: Dr op[ list, {n}] is equivalent to Del ete[list, n] and Drop[list, {- n3] is equivalent to 
Del ete[list, - n]. 


EXAMPLE 23 


list ={a, b, с, d, е, f, g}; 
Drop[list, 2] 
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{c, d, e, £, g} 
Drop[list, -2] 
(a,b,c,d,e) 
Drop[list, (2)] 
{а, c, d, e, f, 9} 
Drop[list, {-2}] 
(а, b, с, d, e, 9} 
Drop[list, (2, 4}] 
{a, e, f, g} 
Drop[list, £1,7,2)] 
(b,d, f} 


There are a variety of list functions that allow elements to be inserted into a list. 


Append| list, x] returns list with x inserted to the right of its last element. 
Prepend[list, x] returns list with x inserted to the left of its first element. 
Insert[ list x, n] returns list with x inserted in position n. 

I nsert[list, x, -n] returns list with x inserted in the nth position from the end. 


If list has a depth of 2, the following form can be used to insert elements: 


= Insert[list, x, «m, n3] returns list with x inserted in the nth position of the mth entry in the outer 
level. 


This command extends in a natural way to lists of greater depth. 


EXAMPLE 24 


list = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10}; 
Append[list, x] 
(1,2,3,4,5,6,7,8,9,10, x) 


Prepend[list, x] 
(x,1,2,3,4,5, 66, 7, 8, 9, 10) 


Insert[list, x, 4] 
(1,2,3,x,4,5,6, 7,8, 9, 10) 


Insert[list, x, -4] 
{1, 2, 3, 4,5, 6, 7, X, 8, 9, 10) 


EXAMPLE 25 


list ={{1, 2, 3}, (4, 5}, (6, 7, 8, 93}; 


Insert[list, x, (3, 2}] 
{{1,2,3},{4,5},{6,x, 7,8, 9}} 


Objects in alist can be replaced by other objects using Repl acePart. 


m ReplacePart[ list, x, n] replaces the object in the nth position of list by x. 
m ReplacePart[ list, x, - n] replaces the object in the nth position from the end by x. 


Repl acePart can also be invoked using the following syntax, which allows a bit more flexibility: 


m ReplacePart[ list, i — new] replaces the ith part of list with new. 

=» ReplacePart[ list ti, — new, i,—new,...,i,—Mmew,}] replaces parts і,,1,,...,1, 
with new,, new;, . . ., NEW, respectively. 

в ReplacePart[list, { {і ,}, (1,3, ..., (1,32 new] replaces all elements in positions 
i,, 1,,...,i,With new. 
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If list has a depth of 2, the following form can be used to replace elements: 

в ReplacePart[list, ti, j } — new] replaces the element in position j of the ith outer level 
entry with new. 

m ReplacePart[list, {i,, ј ,} 5 new, {i j ;) пем, ..., {i,, ja} — new, replaces ће 
entries in positions 1, of entry i, in the outer level with new,. 

= ReplacePart[ list, {{i ,, ji}, Go joo sso Gu јә пем] replaces all entries in posi- 
tions j, of entry i, in the outer level with new. 


This command extends in a natural way to lists of greater depth. 


EXAMPLE 26 
list =Range[10] 
(1,2,3,4,5,6,7,8,9,10) 
ReplacePart[list, x, 7] 
(1,2,3,4,5,6,x,8,9,10) 
ReplacePart[list, x, -7] 
(1,2,3,x,5,6,7,8,9,10) 


ReplacePart[list, 2 x] 
(1,х,3,4,5,6,7,8,9,10) 


ReplacePart[list, {2 х, 4 у, 7 2}] 
Пух, 3, y, 5 6, 2, 8, 9,10) 
ReplacePart[list, {{3}, {5}, (71) x] 
{1,2,х,4,х,6,х, 8, 9,10} 


ЕХАМРІЕ 27 


listztta, b, с}, td, е}, tf, д, h,i, j 33; 


ReplacePart[list, (3, 2} х] 
{{a,b,c}, {d,e}, {f,x,h, i, j}} 


ReplacePart[list, {{1, 3) Bx, {3, 2) y}] 
{{a,b, x}, {d, e}, [(t,y,h,i;3*) 


ReplacePart[list, {{1, 2}, (2, 1}, (3, 4}} х] 
{{a,x,c}, {x,e}, {£,9,h,x, j}} 


Lists can be rearranged using Sort and Reverse. 


m Sort[list] sorts list in increasing order. Real numbers are ordered according to their numerical 
value. Letters are arranged lexicographically, with capital letters coming after lowercase letters. 
m Reverse| list] reverses the order of the elements of list. 


EXAMPLE 28 


list ={1, 5, -3, 0, 2.5}; 
Sort[list] 
{-3, 0, 1, 2.5, 5) 


EXAMPLE 29 


list ={z, x, Y, м, X, y, 2, W; 
Sort[list] 
{w, W, x, X, у, Y, 2, Z} 


EXAMPLE 30 


list ={a, b,c, d,e, f, 9}; 
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Reverse[list] 
(а, E; e, d, Cy b, a} 


Cycling of lists is made possible by use of the functions Rot ateLef t andRotateRi ght. 


m RotateLeft[ list] cycles each element of list one position to the left. The leftmost element is 
moved to the extreme right of the list. 

m RotateLeft[ list, n] cycles the elements of list precisely n positions to the left. The leftmost n 
elements are moved to the extreme right of the list in their same relative positions. If n is negative, 
rotation occurs to the right. 

m RotateRi ght [ list] cycles each element of list one position to the right. The rightmost element is 
moved to the extreme left of the list. 

m RotateRi ght[ list, n] cycles the elements of list precisely n positions to the right. The rightmost 
n elements are moved to the extreme left of the list in their same relative positions. If n is negative, 
rotation occurs to the left. 


EXAMPLE 31 


list ={1, 2, 3, 4, 5, 6, 7, 8, 9, 10}; 
RotateLeft[list] 
{2,3,4,5, 6,7, 8, 9,10, 1} 
RotateLeft[list, 3] 

{4, 5, 6, 7, 8, 9, 10, 1, 2, 3} 
RotateLeft[list, -3] 

{8, 9, 10,1, 2,3, 4,5, 6, 7} 
RotateRi ght[list] 

{10, 1, 2, 3, 4, 5, 6, 7, 8, 9} 
RotateRight[list, 3] 

{8, 9, 10,1, 2,3, 4,5, 6, 7} 
RotateRight[list, -3] 

(4, Б, 6) 7,8, 9, 10,1, 2, 3} 


Lists can be concatenated using J oi n. 


= Join[listL, list2] combines the two lists 1151 and list2 into one list consisting of the elements from 
111 апа list2. 


J oi n makes no attempt to eliminate repetitive elements. However, repetition can be conveniently 
eliminated with the Uni on command (see Section 3.4). 
J oi n can be generalized in a natural way to combine more than two lists. 


EXAMPLE 32 


list12(1, 2, 3, 4, 5}; 
list22(3, 4, 5, 6, 7}; 


Join[list1, 11512] 
(1,2,3,4,5,3,4,5,6,7) 


N ested lists, which are very common, сап have а complicated structure. There are a few M athematica 
commands that can help you understand and manipulate them. 


= Depth[list] returns one more than the number of levels in the list structure. Raw objects, i.e., objects 
that are not lists, have a depth of 1. 

= Level [ list, {levelspec}] returns a list consisting of those objects that are at level levelspec of 
list. 

= Level [ list, levelspec] returns a list consisting of those objects that are at or below level levelspec 
of list. 
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EXAMPLE 33 
Depth[x] 
1 < x is not a list. 
Depth[ (x)] 
2 


Depth[{{x}}] 
3 


EXAMPLE 34 


list ={1, {2, (3, 4, 5333; 


Depth[list] 
4 


Level[list 1 
{1 d (3 n e. ) 4- 1 =3. This tells us that 1ist contains lists within lists within 
! И a itself. Note that Depth always returns one more than the actual 
Level[list, {2}] number of levels in the list. This is for technical reasons dealing with 
(2, (3,4, 5}} the structure of Mathematica commands. For now, just remember 
; that the number of levels is always 1 less than Depth. 
Level[list, {3}] ү P 


{3, 4, 5} 


Level[list, 3] 
{1, 2, 3,4, 5, {3, 4, 5), {2, (3, 4, 5) H 


m Flatten| list] converts a nested list to a simple list containing the innermost objects of list. 

=» Flatten| list, n] flattens a nested list n times, each time removing the outermost level. The depth 
of each level is reduced by n or to aminimum level of 1. 

=» FlattenAt[ list, n] flattens the sublist which is at the nth position of the list by one level. If nis 
negative, Mathematica counts backward, starting at the end of the list. 


EXAMPLE 35 


list ={1, {2, 3}, (4, 5, (61), (7, (8, (9, 10}}}} 
Flatten[list] 

(1,2,3,4,5,6, 7, 8, 9, 10} 

Flatten[list, 1] 

{1, 2, 3, 4, 5, {6}, 7, (8, (9, 10}}} 
Flatten[list, 2] 

(1,2, 3, 4, 5; 6,7,8, 19, 10}} 

FlattenAt[list, 3] 

(1, {2, 3}, 4, 5, {6}, (7, {8, (9, 10}}}} Only thethird sublist of list is flattened one level. 
FlattenAt[list, -3] 

{1, 2, 3, (4, 5, {6}}, (7, (8, (9, 10}}}} 


Fl at ten converts a nested list into a simpler list. Partition takes simple lists and converts them 
into nested lists in a very organized and convenient way. 


m Partition[ list k] converts list into sublists of length k. If list contains k n +m elements, where 
m<k, Partition will create n sublists and the remaining m elements will be dropped. 

m Partition[list, k, d] partitions list into sublists of length к, offsetting each sublist from the 
previous sublist by d elements. In other words, each sublist (other than the first) begins with the 
d+1st element of the previous sublist. 


Notethat Partition[list k] isequivalenttoParti ti on[list К, k]. 

Partition is a very convenient command for generating tables and matrices. Only the simplest 
forms of the command have been described. The reader, if interested, is urged to investigate other forms 
in M athematica's Documentation Center. 
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EXAMPLE 36 
list =Range[12] 
{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12} 
Partition[list, 4] 
(41,2,3,4%, (5, 6, 7,8%, (9, 10,11,12%) 
Partition[list, 5] 
((1,2,3,4,5), (6, 7, 8, 9, 10}} 
Partition[list,5, 1] 
i1i,;2,23,.4,5],12;,3,4,5,0)4,13,;4,5;06;,7]);14,.5,0,7;98],15,0,7;989,9]; 
{6,7,8, 9,10}, (7, 8,9,10, 11), (8,9, 10, 11, 12) ) 
Partition[list, 5, 2] 
(11,2,3,4,5]),13,4,5;6,71],15,6,7,8,9], (7, 8, 9, 10, 11) 
Partition[list, 5, 3] 
{{1,2,3,4,5}, {4,5,6,7, 8}, (7, 8, 9, 10, 11] ] 


SOLVED PROBLEMS 


3.11 Тһе М athematica function! nt eger Di gi t s returns alist containing the digits of an integer. How 
many digits are there іп 100! and what is the 50th digit from the left and from the right? 


SOLUTION 

listzIntegerDigits[100!] 

195 3525 6,2, 1,5,4,4,3, 9,4,4, 1, 55:25 6, 8, 1; 6, 95 9,2, 3 8, 8, 5.j 6, 
2, 6, 6, 7; 0, 0,4, 9, 0, 7, 1, 53 9, 6, В; 2,674, 32 8% Пб: 24 1,4, 6, 8, 55 9; 
2,9,6,3,8,9,5,2,1,7,5,9,9,9,9,3,2,2,9,9,1,5,6,0,8,9,4,1,4, 
б; 35:95 7, 6, Ty Dy 6, 5; Ty B: 2; 8, 6,2, 55.356; 9; Te 9,2, 0, 8; 2; 7, 2; 2, Зе 
7,5,8,2,5,1,1,8,5,2,1,0,9,1,6,8,6,4,0,0,0,0,0,0,0,0,0,0,0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} 

Length[list] 

158 

Part[list, 50] orlist[[50]] 

1 

Part[list, -50] orlist[[-50]] 

2 


3.12 Compute the sum of the digits of the 100th Fibonacci number. 
SOLUTION 


Weusel nteger Di gi ts (see previous problem). 


list zIntegerDigits[Fi bonacci [100]] 
(3,5,4,2,2,4,8,4,8,1, 7, 9, 2, 6,1, 9, 1, 5, 0, 7, 5} 
Length[list] 


Sum[list[[k]], £k, 1, Length[list]] or > li st[[k]] 
93 kal 


3.13 Тһе command Table[i*j, ti, 3, 10), tj, 2, 7}] generates a nested list of numbers. A dd 
the fourth number in the fifth sublist to the third number in the sixth sublist. 


SOLUTION 
list = Table[i*j, (i, 3, 10}, tj, 2, 71] 


3.14 


3.5 


3.16 


3.17 


3.18 
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{{6, 9, 12, 15, 18, 21}, (8, 12, 16, 20, 24, 28), (10, 15, 20, 25, 30, 35}, 
(12, 18, 24, 30, 36, 42}, (14, 21, 28, 35, 42, 49), (16, 24, 32, 40, 48, 56}, 
(18, 27, 36, 45, 54, 63}, (20, 30, 40, 50, 60, 703] 


list[[5, 4]] -list[[6, 31] 
67 «35 432-67 


TheM athematica functionReal Di gi t s returns alist containing alist of the digits of an approximate 
real number followed by the number of digits that are to the left of the decimal point. Compute a 15 
significant digit approximation of т and determine the next to the last decimal digit. 


SOLUTION 


approx =N[ Pi, 15] 
3.14159265358979 


list = Real Digi ts[ approx] 
(034 1,4,1,5,9;2,06,5,3;5;98,9.7,9 T] 


list[[1, -21] 
7 


Construct a list consisting of the consecutive integers from 1 to 10 followed by the consecutive 
integers from 20 to 30. 


SOLUTION 1 


Drop[Range[30], £11, 19}] 
(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30) 


SOLUTION 2 


Joi n[Range[ 1, 10], Range[20, 30]] 
(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30) 


Construct a list consisting of the consecutive integers 1 to 10, followed by 99, followed by 11 to 20. 
SOLUTION 


Insert[Range[20], 99, 11] 
{1,2,3, 4,5,6, 7, 8, 9, 10, 99, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20} 


Construct a list of the integers 1 to 20 in descending order. 
SOLUTION 1 


Range[20, 1, -1] 
(26, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, B, 9; By 5, 4, 3, 2, 1} 


SOLUTION 2 


КАапде[ 20] / / Reverse « This is equivalentto Reverse [Range |2011. 
120, 19, 18, 17, 16; 15, 14, 13, 12, 11, 10, 9, 8, 7,6, 5, 45 3,2, 11 


Sort the letters of the word MISSISSIPPI alphabetically. 
SOLUTION 


list = Characters[ "MISSISSIPPI"] 
(М,1,5,5,1,5,5,І,Р,Р,І) 
Sort[list] 

(І,І,І,І,М,Р,Р, 5,5,5, 5) 
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3.19 


3.20 


3.21 


Construct a list of numbers from 0 to 2 in increments of 7/6. 
SOLUTION 


Range[0, 2m, л/ 6] 
fo, Z, Z, Z, 2, 5E, п, IZ, ап эл эл Lin, л 


, П ï D D П П П П П 


6 3° 2 3' 6 6 3° 2. 3 6 


Flavius | oseph was a | ewish historian of the first century. He wrote about a group of ten Jews іп a 
cave who, rather than surrender to the Romans, chose to commit suicide, one by one. They formed 
a circle and every other one was killed. Who was the lone survivor? 


SOLUTION 


We number the people 1 through 10 and define a list consisting of these ten integers. 

list = Range[ 10] 

(1,2,3,4,5,6,7,8, 9, 10} 

The first person to go is number 2. We eliminate him by rotating the list one position to the left and drop- 
ping his number from the list. 

list =Rest[RotateLeft[list]] 

(3,4,5,6,7,8,9, 10, 1} 

The new list begins with 3 and omits the number 2. To determine the survivor, we repeat the process until 
only one number remains. 

list =Rest[RotateLeft[list]] 

15; 6; 7, 8,:9; 10, 1, 37 

list =Rest[RotateLeft[list]] 

(7,8,9,10,1,3, 5) 

list =Rest[RotateLeft[list]] 

(95 10; 1,3545; 7} 

list =Rest[RotateLeft[list]] 

11; 3,5, 7; OF 

list =Rest[RotateLeft[list]] 


15, 7,9; 1] 

list =Rest[RotateLeft[list]] 

19, 1, 5} 

list =Rest[RotateLeft[list]] 

{5, 9} 

list =Rest[RotateLeft[list]] 
{5} 


Although itis interesting to see how the list progresses from step to step, the above technique would not 
be appropriate for along list. A more efficient procedure would involve a simple Whi | e loop. 


list = Range[10]; 
While[Length[list] >1, list =Rest[RotateLeft[list]]] 


list 
(5j 


Determine which elements are in the highest level of the list 
(а, (b, с), {{d, е}, (ХЕ, 9}, {{h, ір}, 52, {k, 1, m) 333 
SOLUTION 


list = ta, (b, с}, {{d, e}, (f, g}, Ch, i 93, Cj, Ck, 1, m}}}}; 


Depth[list] 
5 
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Level[list, 14 < Remember to subtract 1 to determine the highest level. 
{h, i, k, 1, m} 


3.22 Reduce the depth of the list 
(а, tb, с}, {{d, е}, (ХЕ, 9}, {{h, ір}, 52, {k, 1, m) 333 
by 1 level; by 2 levels. 


SOLUTION 


list = £a, {b, c), {{d, е}, (f, g}, {{h, i 33, {j, Ck, |, m2); 
Flatten[list, 1] 

(a, b, c, td, е}, {£, а), {{h, i}}, (3, {k, 1, m}}} 
Flatten[list, 2] 

(a,b,c,d,e,f,g, {h, i}, j, {k, 1, m) ) 


3.23 Take the list of characters A through X and construct a list with six sublists, each containing four 
distinct letters. 


SOLUTION 


list = CharacterRange[ "д", "x"] 

{A, В, C, D, E, F; б, Н, I, J, K; L; M; N; O, P; Q, R; S, T, U, V, М, X] 
Partition[list, 4] 

{{A, B, C, D}, ХЕ, F, G, H}, {I, J, K, L}, (M, N, O, P}, {0, R, S, T}, {U, V, W, X}} 


3.4 Set Theory 


Sets are represented as lists in M athematica. Sets are manipulated using the basic list functions Uni on, 
Intersection, andCompl ement. 


= Uni on{ listl, list2] combines 1151 and list2 into one sorted list, eliminating any duplicate elements. 
Although only two lists are presented in this description, any number of lists may be used. As a spe- 
cial case, Uni on[ list] will eliminate duplicate elements in list. 

m Intersecti on[ listl, list2] returns a sorted list of elements common to list1 and list2. If listl and 
list2 are disjoint, i.e., they have no common elements, the command returns the empty list, (). 

= Compl ement [ universe, list] returns a sorted list consisting of those elements of universe that are 
not in list. In this context, universe represents the universal set. 

m Compl ement | universe, 11511, list2] returns a sorted list consisting of those elements of 
universe that are not іп listl ог list2. This command extends in a natural way to more than 
two sets. 


EXAMPLE 37 


list ={a, b, с, a, с, с, c, b, b}; 
Uni on[li st] 
(а, b, с} 


EXAMPLE 38 


universe = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}; 
listl={1, 3, 5, 7}; 
list2={5, 7, 8, 10}; 


Union[list1, list2] 
{1, 3, 5, 7, 8, 10} 
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Intersection[list1, 11512] 

{5, 7} 

Compl етеп [ universe, list1] 

{2, 4,6, 8, 9, 10} 

Compl етеп [ universe, 11541, list2] 
{2, 4, 6, 9} 


Using the Basic Math Input palette, the symbols U and ^ may be used to represent union and intersec- 
tion, respectively. 


ш listl U list2 is equivalent to Uni оп[ listl, 1152]. 
в list] A 11542 is equivalenttol ntersecti on[ list, 11502]. 


EXAMPLE 39 


listl={1, 2, 3, 4, 5}; 
list2={3, 4, 5, 6, 7}; 
listl Ulist2 

{1, 2, 3, 4,5, 6, 7} 
listlalist2 
{3, 4, 5} 


A subset of A is any set, each of whose elements are members of A. The empty set is a subset of every 
set. Including the empty set, a set of n elements has 2" subsets. The set of all subsets of A is called the 
power set of A. 


m Subsets[ list] returns a list containing all subsets of list, including the empty set, i.e., the power 
set of list. 


There are a number of useful set commands available іп the package Co mbi nat ori ca' .Among them 
areCartesi anProduct andKSubsets. 

By definition, the Cartesian product of two sets, A and B, is the set of ordered pairs of elements, the first 
taken from A and the second from B. 


m CartesianProduct[ 1151, list2] returns the Cartesian product of 1151 and list2. 
m KSubsets|[ list, КІ returns a list containing all subsets of list of size к. 


EXAMPLE 40 


<< Combi natorica’ < This loads the package. See Chapter 1. 
listl={a, b, c, d}; 

list2={x, y, 2}; 

CartesianProduct[list1, 11512] 


{{a, x}, ta, у}, la, z}, (b, x}, tb, у}, (5,2), {c, x}, {c, yl, 
(c, z}, Ха, x}, (d, у}, td, zi) 


EXAMPLE 41 


list = (a, b, c, d}; 

Subsets[list] 

{{}, {a}, {0}, {c}, {d}, (a, b}, (a, с}, (a, d}, (b, с}, {b, d}, 
{c,d}, {а, р, с}, {а, b, d}; fa, c, d}, {b, c;d}, (a, b, c, d}} 

<< Combi natorica' = Omit if you have already loaded the package. 


KSubsets[list, 3] 
{{а, b, с}, la, b, d), ta, c, d), (b, с, d}} 
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SOLVED PROBLEMS 


3.24 Which distinct letters are contained in the word MISSISSIPPI? (Compare with Problem 3.18) 


325 


326 


327 


328 


3.29 


SOLUTION 


Uni on[ Characters[ "MISSISSIPPI"] ] 
(І,М,Р, 5) 


Find the union and intersection of the sets (a, b, c, d, e, f, g}, (c, d, e f, g, h, i}, and (e, f, g, h, і, j, k}. 
SOLUTION 


setl={a, b, с, d, e, f, g}; 
set2={c, d, е, f, g, h, i}; 
set3 = {e, f, 9, һ, P I К}; 


Union[set1, set2, set3] or setl Uset2 Uset3 
(а, Б, с, d, е, £, 9, h, і, 4, K} 


Intersection[setl1, set2, set3] or setl aset? (15643 
(е, Е, а) 


Find all the elements of the set (a, b, c, d, e, f, g} that are notin (a, c, d, е). 
SOLUTION 

universe ={a, b, c, d, e, f, g}; 

set = (a, с, d, e); 


Compl етеп [uni verse, set] 
(Б, f, g} 


The 20th prime is 71. Find all the numbers not exceeding 71 that are not prime. 
SOLUTION 


universe =Range[71]; 


primes = Pri me[ Range[ 20] ] 
{2,3,5,7,11,13,17,19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71} 


Compl ement[uni verse, primes] 

(1, 4, 6, 8, 9, 10, 12, 14, 15, 16, 18, 20, 21, 22, 24, 25, 26, 27, 28, 30, 32, 33, 
34, 35, 36, 38, 39, 40, 42, 44, 45, 46, 48, 49, 50, 51, 52, 54, 55, 56, 57, 58, 60, 
62, 63, 64, 65, 66, 68, 69, 70) 


Construct a list consisting of the consonants of the alphabet. 
SOLUTION 


letters z CharacterRange[ "a", "z"]; 

vowels = Characters[ "aeiou"]; 

consonants = Compl ement[letters, vowels] 
(b,c,d,f,g,h,j,k,1,m,n,p,q,r,S,t,v,W,X, у, 2) 


Find all the numbers less than 1000 that are both prime and Fibonacci. 

SOLUTION 

k=1; listl={}; 

While[Fibonacci[k] 1000, listl=Append[list1, Fibonacci[k]]; k++] 
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k=1; list2={}; 
While[Prime[k] <1000, list2=Append[list2, Pri me[k]]; k++] 


listlalist2 
{2, 3, 5, 13, 89, 233} 


3.30 Create a list that contains all the subsets of (a, b, с, d, е). How many subsets are there? 
SOLUTION 


letters = {а, b, c, d, e); 

Subsets[letters] 

{{}, {a}, {b}, {c}, (d), {е}, (a, b}, (la, с}, (la, d}, (la, e}, (b, c}, (o, а), ib, e}, 
(с, а), (с,е), (d, е}, (а, b, с}, la, b, ӣ}, {а, b, е}, tla, с, d), fa, с, е}, 
(а, а, е}, {b, с, d}; (b, c, e), (b, а, е), (c, d, е}, la, Б, с, d}; la, b, c, е}, 
(а, Б, d, e},{a, с, d; е}, (Б, с, d; е}, la, b, c, d, е}} 

Length[ %] 

32 


3.31 Create a list of all the subsets of (а, b, c, d, e) that contain precisely three elements. How many are 
there? 


SOLUTION 


<< Combi natorica' 

letters={a, b, c, d, е}; 

KSubsets[letters, 3] 

(ха, b, с), Ха, b, dj, (а, Б, e}, {a, c, d}, {а, c, e), {a, d, е}, (Ы, с, d}, {b, c, e), 
{b, d, e}, {c, d, e}} 

Length[ %] 

10 


3.5 Tables and Matrices 


Mathematica represents tables and matrices as nested lists. Internally, there is no difference in the way they 
are stored, but they are represented differently using the functions Mat ri хЕог т апа Tabl eForm. It is 
often more convenient to use / / Matri xFormor// TableForm to the right of the matrix or table 
name. 


в Matri xForm[list] prints double nested lists as a rectangular array enclosed within parentheses. 
The innermost lists are printed as rows. Single nested lists are printed as columns enclosed within 
parentheses. 

=» Tabl eFor mf list] prints list the same way as Mat ri x For m except the surrounding parentheses 
are omitted. 


M atrices and tables can be entered directly as nested lists. A matrix or table having m rows and n columns 
would be a nested list of m sublists, each containing n entries. 


EXAMPLE 42 


list ={{1, 2, 3, 4}, £5, 6, 7, 8), (9, 10, 11, 12}}; 
MatrixForm[ list] or list // Matri xForm 


1 2 3 4 
5 6 7 8 
9 10 IT 12 
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TableForm[list] orlist //TableForm 


1 2 3 4 
5 6 7 8 
9- 10 11 12 


Matrices and tables can also be conveniently entered by going to Insert = Table/Matrix = New. 


53 Create Table/Matrix 


Make: 
© Table (arid[...]) 


© Matrix (List of lists) 


OK 


Number of rows: | 3 


Number of columns: | 3 


C] Draw lines between rows 
C] Draw lines between columns 
[ ]Draw frame 


[ ]Fil with: |0 


[ ]Fil diagonal: | 1 


Clicking OK yields an empty grid— use the [TAB] key to cycle from entry to entry. 
П 

o | 

П 


EXAMPLE 43 


list ={{1, 2, 3, 4}, 45, 6, 7, 8}, (9, 10, 11, 12) 
{{1, 2, 3, 4}, (5,6, 7, 8}, (9, 10, 11, 12}} 
MatrixForm[ list] or 


1 2 з 4 
5.46 7 28 
9 10 11 12 


Two special matrix-generating commands are worth remembering because of their frequency іп applica- 
tions. These generate a nested list. Use Mat ri x For m to get a matrix. 


list // Matri xForm 


=» ldentityMatrix[n] produces an n x n matrix with 1s on the main diagonal and 05 elsewhere. 
= Diagonal Matri x[ list] creates a diagonal matrix whose diagonal entries are the elements 
of list. 
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EXAMPLE 44 


IdentityMatrix[3] // Matri xForm 


100 
0 10 
0.0 1 


Diagonal Matri x[ (1, 2, 3}] ІІ Matri xForm 


оо н 
о моо 
оо о 


Once defined, matrices can be combined using the operations of addition, subtraction, scalar, and matrix 
multiplication. The operation of matrix multiplication is represented by a period (.). M atrices are discussed 
in greater detail in Chapter 12. 


EXAMPLE 45 


А = 123 The matrix is input using Insert = Table/Matrix = New. 
“14 5 6 Mathematica outputs the matrix as a nested list of numbers. 

7 8 9 

{{1, 2, 3},{4, 5, 6},{7, 8, 9}} 
215 

8-|4 7 2 
13 2 

{{2,1,5},{4, 7, 21, (1, 3, 23] 


A+B//MatrixForm 


з з В 
8 12 8 
8 11 11 


А-В || МаігіхҒогт 


ЗА || МаїгїхРогт 


3 6 9 
12 15 18 
21 24 27 


A.B//MatrixForm 


13 24 15 
34 57 42 
55 90 69 


Itis useful to remember that if 1ist is a simple list of numbers, 1ist.list yields the sum of their 
squares. T he result is printed as a single number without braces. 


EXAMPLE 46 
list ={1, 2, 3, 4, 5); 
list. list 


55 
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Tables are also stored as nested lists, but are represented as tables with Tabl eFor m. Although this 


command allows representation of tables of any dimension, we will discuss only one- and two-dimensional 
tables in this book. 


EXAMPLE 47 


listz {{12, 7, 10}, 1105, 205, 7), (3, 30, 3001; 
list// TableForm 


12 7 10 
105 205 7 
3 30 300 


= TableForm[list, options] allowsthe useof various formatting options in determining the appear- 
ance of a table. 


From Example 47 we can observe that the numbers in a table are, by default, left justified. This can some- 
times make the table confusing to read. J ustification can be controlled with theTabl eAl i gnment s option. 


e TableAlignments — Left justifies the columns to the left (default). 
* TableAlignments — Ri ght justifies the columns to the right. 
• TableAli gnments — Center centers the columns. 


EXAMPLE 48 


list ={{12,7, 10}, (105,205,7), (3, 30, 300) ) ; 
TableForm[list, TableAlignments — Ri ght] 


12 7 10 
105 205 7 
3 30 300 
TableForm[list, TableAlignments —Center] 
12 7 10 
105 205 7 
3 30 300 


Row and column headings сап be inserted by using the option Tabl eHeadi ngs within the 
Tabl еЕог т command. ThedefaultisTabl eHeadi ngs — None. 


* TableHeadings — Automatic produces consecutive integer labels for both rows and 
columns. 


Each row and column of a table can be labeled separately using strings (characters enclosed within 
double quotes) or M athematica expressions. The general form of this option is 


• Tabl eHeadi ngs — trowlist, columnlist} 


where rowlist is alist of row labels and columnlist is а list of column labels. If you desire to have row labels 
but not column labels, or column labels but not row labels, simply replace rowlist or columnlist by None. 


EXAMPLE 49 


list ={{a, b, с}, (d, e, f), {9, h, i}}; 
TableForm[list, TableHeadi ngs — Automatic] 
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EXAMPLE 50 


list ={fa, b, c}, {d, e, f}, {9, h, iN 


TableForm[list, TableHeadi ngs >{{"Rowl", "Row2", "Row3"}, 
("Columni", "Column2", "Column3"))] 


Columni Column2  Column3 


Rowl|a b с 

Row2|d e f 

Row3 | g h i 
EXAMPLE 51 


list = { а, b, с}, (d, e, f}, {g, h, i 33; 
TableForm[list, TableHeadi ngs >{{"Row1", "Row2", "Row3"}, 
("Columni", "Column2", "Column3"}}, 
TableAli gnments Center] 


| Column1i Column2 Column3 


Row1 a b c 

Row2 d e f 

Row3 g h i 
EXAMPLE 52 


TableForm[list, TableHeadi ngs — (None, {"Columni", "Column2","Column3"}}, 
TableAlignments — Center] 


Column1  Column2  Column3 


a b c 
d e f 
g h i 


TableForm[list,TableHeadings — {{"Row1", "Row2","Row3"}, None}, 
TableAlignments — Center] 

Rowl a b c 

Row2 |d e E 

Row3 |g h 1 


TableDirections isanoption that determines how the entries of the table should be placed. If list 
represents a two-dimensional nested list, then 

e Tabl eDi rections — Col umn prints the table with the first element of each inner list in the first 

column, the second element of each inner list in the second column, and so forth. (This is the 


default.) 
* TableDirections — Row interchanges the positions of the columns with the rows. 


EXAMPLE 53 


list = Array[a, (3, 4)] 
{{a[1, 1], a[1, 2], a[1, 3], a[1, 41), {а[2, 11, a[2, 21, a[2, 3], a[2, 4]}, 
ta[3, 1], a[3, 2], a[3, 3], a[3, 4] }} 
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TableForm[list, TableDirections —Column] 
ali, 2) a[ri,2] ali, 3] ali, 41 
a[2, 1] a[2, 2] a[2, 3] a[2, 4] 
a[3, 1] a[3, 2] a[3,3] а[3, 4] 


Тһе elements a [1, 1], a [2, 1], anda [3, 1] form 
the first column. 


TableForm[list, TableDirections — Row] 
ali, 1] a[2,1] a&[3; 11 


[1, 2] al2, 2] al3, 2] Theelements a[1, 1],a[2, 1],anda[3, 1] form 
i ! d the first row. 


a 
a[1, 3] a[2, 3] a[3, 3] 
a[1,4] a[2,4] aI[3, 4] 


By default, M athematica prints real numbers to a specified number of significant digits. So numbers that 
vary in magnitude will appear to have different formats. The command PaddedFor m allows the output 
of a calculation to be precisely formatted. 


m PaddedForm[ expression, n] prints the value of expression leaving space for a total of n digits. 
This form of the command can be used for integers or real number approximations. Note: The decimal 
point is not counted as a position. 

m PaddedForm[ expression, (n, f)] prints the value of expression leaving space for a total of 
n digits, £ of which are to the right of the decimal point. The fractional portion of the number is 
rounded if any digits are deleted. 


EXAMPLE 54 


a=123.456789; 
PaddedForm[a, 12] 


123.456789 «— 3 spaces to the left of the number. 
PaddedForm[a, 20] 
123.456789 < 11 spaces to the left of the number. 
PaddedForm[a, (20, 3}] 
123.457 < 14 spaces to the left of the number, the third decimal is rounded to 7. 


EXAMPLE 55 The following prints a table of values of a polynomial p(x) along with its corresponding 
value of x. First we will print the table using the standard Tabl eFor m command. 

plx_] = х°- 3x**2x?- 7x * 12; 

list =Table[{x, p[x13, tx, -3, 3, .5)]; 

TableForm[list] 


=3; =50 7a 
-2.5 -216.594 
-2. -70. 
-1.5. 7203125 
=1 13 

20.5. 15.0313 


0 

055 8.59375 
1 Б» 

1:5 0.65625 
2 -2. 
2:5 6.21875 
3 45. 
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Now weuse PaddedForm to pad the entire table. 


PaddedForm[TableForm[list], (10, 6)] 
-3.000000  -507.000000 
-2.500000  -216.594000 


-2.000000 -70.000000 
-1.500000 -7.031000 
-1.000000 13.000000 
-0.500000 15.031000 
0.000000 12.000000 
0.500000 8.594000 
1.000000 5.000000 
1.500000 0.656000 
2.000000 -2.000000 
2.500000 6.219000 
3.000000 45.000000 


If we wish to format the individual columns differently for a more customized appearance, we can pad 
the individual entries of the list, rather than the whole table. 


list =Table[ tPaddedForm[x, £5, 13], PaddedForm[ p[x], (10, 3}]}, £x, -3, 3, . 51]; 
TableForm[list] 


=3 0 -507.000 
22.5 -216.594 
-2.0 -70.000 
z1.:5 -7.031 
-1.0 13.000 
-0.5 15.031 
0.0 12.000 
0.5 8.594 
1.0 5.000 
1.5 0.656 
2.0 -2.000 
2:5 6.219 
3.0 45.000 


Spacing between rows and columns can be controlled with Tabl eSpaci ng. This specifies the number 
of spaces to put between entries in each direction. 


e TableSpacing  trowspaces, columnspaces} 


rowspaces specifies the number of blank lines between successive rows of the table; columnspaces speci- 
fies the number of blank characters between successive columns. 


EXAMPLE 56 


list ={{a, b, с}, (d, e, f}, {g, h, i 33; 
TableForm[list, TableSpacing — (0, 0}] 


abc < No spacing between rows or columns. 
def 
ghi 
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TableForm[list,TableSpacing t1, 3}] 


abc < 1 line between rows, 3 spaces between columns. 
de f 
g h i 


TableForm[list,TableSpacing (3, 1}] 


abc < 3 lines between rows, 1 space between columns. 


def 


ghi 
Lists can be expressed as single columns with Col umnFor m. 


m Col umnFor mf list] presents list as a single column of objects. 

m ColumnForm[list, horizontal] specifies the horizontal alignment of each row. A cceptable values 
of horizontal are Lef t (default), Center , and Ri ght. 

m ColumnForm[list, horizontal, vertical] allows vertical alignment of the column. Acceptable 
values of vertical areAbove, Center , and Bel ow (default). 


EXAMPLE 57 


list = (à, bb, ccc) 


ColumnForm[ list] 
a 


bb 
ccc 


Col umnForm[list, Right] 
a 


bb 


ccc 


SOLVED PROBLEMS 


3.32 Construct a 3 x 3 matrix whose entries are consecutive integers, increasing as we go to the right and 
down. 


SOLUTION 


list = Table[3i +j, £i, 0, 2}, {j, 1, 3)] 
{{1, 2, 3}, (4,5, 6), (7, 8, 9}} 
list// MatrixForm 
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3.33 The Hilbert matrix is a square matrix whose element in position (i, j) is mia Construct the 


Hilbert matrix of order 5. 
SOLUTION 
ali ,j ]121/(i *j - 1); 


hilbert = Array[a, (5, 51]; 
hil bert// Matri xForm 


1 Dock orm 
12534 
Ts d ode dh 
2 3 4 5 6 
пла 
3 4 5 6 7 
13 3. 4 
4 5 6 7 
її A т 
5 6 7 8 9 


3.34. Construct the 5 x 5 identity matrix. 
SOLUTION 
IdentityMatrix[5]//MatrixForm 


оо о о H 
оо: о HB o 
оо FP: 
оноо с 
H о о O с 


3.35 Construct a 5 x 5 matrix having the first five primes as diagonal entries and 05 elsewhere. 
SOLUTION 


diag = Table[Pri me[k], {k, 1, 5}] 
(2,3,5, 7, 11) 


Diagonal Matrix[diag] // MatrixForm 


2 0 0 0 0 
0 3 0 0 0 
0 0 5 0 0 
0 0 0 7 0 
0 0 0 0 11 


3.36 Construct а table having three columns. Тһе first column lists the consecutive integers 1 through 
10 and the second and third columns are their squares and cubes. L abel the three columns integers, 
squares, and cubes. 


SOLUTION 


list  Table[ Ck, k2, k?), Ck, 1, 101]; 


TableForm[list, TableHeadi ngs —^ (None, ( "integers", "squares", "cubes"}}, 
TableAlignments Right] 


3.37 


3.38 


3.39 
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integers squares cubes 


1 1 1 
2 4 8 
3 9 27 
4 16 64 
5 25 125 
6 36 216 
7 49 343 
8 64 512 
9 81 729 
10 100 1000 


If c represents the temperature in degrees Celsius, its corresponding Fahrenheit temperature is 
f = 2c+32° , Construct a labeled table showing, horizontally, the Fahrenheit equivalents of Celsius 
temperatures from 1° to 10° in increments of 1°. 


SOLUTION 


ZU 


list  Table[ (c, PaddedForm[ МІРІ, (3, 1}]}, tc, 1, 101] 


TableForm[list, TableDirections Row, 
TableHeadings —^ (None, { "Celsius", "Fahrenheit"}}, 
TableAlignments Center] 


Celsius 1 2 3 4 5 6 7 8 9 10 
Fahrenheit |33.8 35.6 37.4 39.2 41.0 42.8 44.6 46.4 48.2 50.0 


Construct a table showing the radian equivalents of angles from 0? to 30? in increments of 59, 
SOLUTION Degree isa Mathematica constant 


(see Chapter 2). 
list = Table[ (deg, N[deg Degree]}, {deg, 0, 30, 53]; 


TableForm[list, TableDirections Row, 
Tabl eHeadings — (None, { "Degrees", "Radians"}}, 
TableAlignments Center] 


Degrees |0 5 10 15 20 25 30 
Radians |0 0.0872665 0.174533 0.261799 0.349066 0.436332 0.523599 


If p dollars is invested for t years in a bank account paying an annual interest rate of r compounded 
n times a year, the amount of money after k periods is p ler dollars. If $1,000 is invested in an 
account paying 6% compounded quarterly, make a table showing how much money has accumulated 
during a three-year period. 

SOLUTION 

p=1000; г =.06; n=4; 6-3; 

а[к J=p (1 + r/ n)*; 

list = Table[ £k, a[k]}, £k, 1, n*t)] 

TableForm[list, TableHeadi ngs —» (None, { "period", "amount"}}] 
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period amount 


1 1015 

2 1030.22 
3 1045.68 
4 1061.36 
5 1077.28 
6 1093.44 
7 1109.84 
8 1126.49 
9 1143.39 
10 1160.54 
11 1177.95 
12 1195.62 


ЗАО |f p dollars is invested in a bank account paying a rate of r compounded n times a year, the amount of money 
nt 
after t years is p(1+ г. dollars. If interest is compounded continuously, the amount after t years is ре". If 


$1,000 is invested іп an account paying 6% annually, make a table showing how much money is in the account 
atthe end of each year for 10 years if interest is compounded quarterly, monthly, daily, and continuously. 


SOLUTION 
pz1000; 
г=, 06; 
а= р(1+г/4)**, 


bzp(1sr] 12)! *, 

c=p(l+r/ 365)**'. 

d z p Exp[r t]; 

tt =PaddedForm[t, 2]; 

аа = PaddedForm[a, (7, 2}]; 

bb = PaddedForm[b, {7, 21]; 

cc = PaddedForm[c, {7, 21]; 

dd = PaddedForm[d, {7, 21]; 

list =Table[{tt, aa, bb, cc, dd}, (t, 1, 10}]; 
TableForm[ list, TableHeadi ngs — 


(None, ("year"," quarterly"," monthly", " daily", "continuously"))] 
year quarterly monthly daily continuously 
1 1061.36 1061.68 1061.83 1061.84 
2 1126.49 1127.16 1127.49 1127.50 
3 1195.62 1196.68 1197.20 1197.22 
4 1268.99 1270.49 1271.22 1271.25 
5 1346.86 1348.85 1349.83 1349.86 
6 1429.50 1432.04 1433.29 1433.33 
7 1517.22 1520437 1521.91 1521.96 
8 1610.32 1614.14 1616.01 1616.07 
9 1709.14 1713.70 1715.93 1716.01 

10 1814.02 1819.40 1822.03 1822.12 
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ыга 
3.41 The payment on a monthly mortgage of a dollars is E where n is the number of years the 
1-(1----) ”" 
12 
money is borrowed апа г is the annual rate of interest. Construct а table showing the monthly 
payments on a 30-year mortgage of $250,000 at rates of 696 to 8% in increments of 25%. 


SOLUTION 
a -250000; 
n = 30; 
r 
d za 
payment = — — dn 
1- (1+7) 


list = Table[ (PaddedForm[r, (4, 4}], 
PaddedForm[payment, (6, 2}]}, {r, .06, .08, .0025}]; 


TableForm[ list, TableHeadi ngs +{None, {" rate", " payment"}}] 
rate payment 
0.0600 1498.88 
0.0625 1539.29 
0.0650 1580.17 
0.0675 1621.50 
0.0700 1663.26 
0.0725 1705.44 
0.0750 1748.04 
0.0775 1791.03 
0.0800 1834.41 


СНАРТЕК 4 


Two-Dimensional Graphics 


4.1 Plotting Functions of a Single Variable 

A nyone who has ever tried to plot a graph using one of the standard programming languages will appre- 
ciate the ease with which graphs can be produced in Mathematica. In many instances, only one simple 
instruction is all that is needed to produce a pictorial representation of a function or a more general rela- 
tionship between two variables. 

Although M athematica's defaults work well in most instances, there are many options available to con- 
trol subtleties. We shall describe the more common ones in this section and present a variety of examples 
that illustrate the ease with which graphs may be constructed. 

The basic command for drawing the graph of a function is PI ot . Although x is used as the independent 
variable in the following description, any symbol may be used in its place. 


m Plot[f[x], £x, xmin, xmax} plotsatwo-dimensional graph of the function f(x) on the interval 
xmin < x < xmax. 


EXAMPLE 1 Plot the parabola f(x) = x? from -3 to 3. 
Plot[x?, {x, -3, 31] 


Two functions can be plotted on the same set of axes. M athematica draws each in a different color. 


m Plot[<f[x], g[x]}, «x, xmin, xmax}] plots the graphs of f(x) and g(x) from xmin to 
xmax on the same set of axes. This command can be generalized in a natural way to plot three or 
more functions. 
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EXAMPLE 2 Plotf(x) =x? and g(x) = 9 — x? from —3 to 3. 
Plot[«{x?, 9 - х2}, tx, -3, 31] 


W hen plotting points over a specified interval, M athematica makes a decision on the range of points to plot 
in order to produce a pleasing graph. РІ ot Range isan option that allowsthe user to override M athematica's 
default. 


• PlotRange — Automatic is Mathematica's default. Any points whose vertical coordinates 
appear to be too large (e.g., outliers) are omitted from the graph. 

• PlotRange — All forces Mathematica to plot all points. 

• PlotRange —> {ymi n, ymax} plots only those points whose vertical coordinates fall between 
ymin and ymax. 

• PlotRange + {{xmin, xmax}, {уті п, утах} >} plots those points whose horizontal 
coordinates fall between xmin and xmax and whose vertical coordinates fall between ymin 


and ymax. 
EXAMPLE 3 

ШЫ hp 1;3x«2.9]|| х>3.1 

f[x 1:2100 /; 2.9 xx <3.1 

Plot[f[x], tx, 0, 63] Plot[f[x], {x, 0,6}, PlotRange >All] 
100) 
80" 
60r 
40} 
20- 


The Show command is useful for plotting several graphs simultaneously, particularly when their 
domains are different intervals. 


= Show[gl1, g2, . . .] plots several graphs on a common set of axes. 
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EXAMPLE 4 Suppose we wish to plot the graph of y = x? - 9 on the interval [- 4, 4] and the graph of 
у = sin x on the interval |0, 27], but wish to plot them on one set of axes. We define two graphics objects, g1 
and g2. 


gl=Plot[x?- 9, tx, -4, 4}] 


g2 = Plot[Sin[x], tx, 0, 27] 


1.0 


0.5 


-05 


540! 


Now we apply theShow command. Note how the axes are adjusted to exhibit both graphs: 


Show[ g1, 92, PlotRange АІТ] 
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You will notice that in defining g1 and g2, each curve was drawn individually on its own axis. To suppress this 
output, a semicolon (;) сап be placed at the right side of each plot command. 


EXAMPLE 5 
gl =Plot[x’- 9]; 
g2=Plot[Sin[x], tx, 0, 2m]; 
Show[ g1, g2, PlotRange >All] 


Only the combined graph is drawn, 
notgl andg2. 


A useful command for drawing multiple graphs is Gr aphi csArray. 


m GraphicsArray[ {91, g2, ...] plotsarow of graphics objects. 
= GraphicsArray[tg11, g12,...1,1921, g22, ... }}] plotsatwo-dimensional array of 
graphics objects. 


EXAMPLE 6 
glzPlot[x, tx, -2, 21]; 
g2=Plot[-x, tx, -2, 2)]; Note the use of the semicolon (;) to suppress 
intermediate graphics from being plotted. 
g3 = Plot[x?, (x, -2, 23]; 
94 = Plot[-x?, tx, -2, 23]; 
GraphicsArray[tgl, 92, 93, 04 


н м UC RB 


-2 -1 0 1 2 
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GraphicsArray[tgl, g2},{ 93, g41] 


Plot has a variety of options that can be viewed by typing ?? Pl ot orOptions[Plot]. These 
options may be used individually or in conjunction with one another. Some of the more common options 
are described in the remainder of this section. 

Since M athematica obviously cannot plot an infinite number of points, it selects a finite number 
of equally spaced points as "sample" points and uses an adaptive algorithm to construct a smooth- 
looking curve. The initial number of points it will use, Pl ot Poi nts, is set to 50 by default. If 
the curve "wiggles" excessively, a larger number might be necessary to obtain a smooth-looking 
curve. 


• PlotPoi nts — n specifies that an initial number of n sample points should be used in the con- 
struction of the graph. 

. MaxRecursi on — n specifies that up to n levels of recursion should be made in the adaptive 
algorithm. Recursive subdivision is done only in those places where more samples seem to be needed in 
order to achieve results with a certain level of quality. 


W hen you plot a graph, you will notice that the horizontal and vertical axes are usually not the same 
length. By default, the ratio of vertical axis length to horizontal axis length is 1/ Gol denRati o, where 
Gol denRati o = (1--,/5)/2. The designers of M athematica felt that this ratio was the most comfort- 
able and pleasing to the eye. It can be changed with the option As pect Rat i o, which determines the 
height-to- width ratio of the graph. 


e AspectRatio — Automatic computes the aspect ratio from the actual coordinate values of the 
plot. 
e AspectRati o — ratio sets the ratio of height to width to the value ratio. 
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ЕХАМРІЕ 7 
Plot[x?, £x, -5, 53] Plot[x?, £x, -5, 5}, AspectRatio Automatic] 
25 - 
20 - 
15 f 
10r 


Both axes are scaled 
identically. 


EXAMPLE 8 Thefollowing command should produce a circle of radius 3 centered at the origin. However, because 
of unequal axis scaling, the graph appears as an ellipse. 


Plot[{-Sqrt[9- x?], Sqrt[9 - х2] }, {x, -3, 31] 
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We can make the circle appear round by setting AspectRatio — Automatic. 


Plot[t-Sqrt[9 - x?], Sqrt[9 - x?] 3, £x, -3, 3}, AspectRatio Automatic] 


W hen graphing a function, M athematica makes a calculated decision where to place the origin. If (0, 0) 
is within the plotting region, the axes will cross at that location. If not, an algorithm decides where the 
axes should cross. This can sometimes lead to a confusing (and misleading) rendering of the function. The 
option Axes Ori gi n gives control over the placement of the intersection point. 


e AxesOri gi n — Automatic is the default. If the point (0, 0) is within, or close to, the plotting 
region, then itis usually chosen as the axis origin. 
e AxesOri gi n — tx, у} forces ће intersection of the axes to be the point (x, у). 


EXAMPLE 9 
Plot[5 +x‘, £x, 1, 2}] 


The axes intersect at (1, 6). The 
graph is drawn completely, how- 
ever, from x 2 1to x 2 2. 
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Plot[5 +x‘, (x, 1, 2}, AxesOrigi n £0, 05 
20t 
1r 


10L 


(05 ш 15 20 


When multiple graphs are drawn on the same set of axes, Mathematica distinguishes them by color. 
Pl ot St yl e allows the user to alter the appearance of a graph in other ways using style options. 


e PlotStyl e — style if only one style option is used. 
e PlotStyle — tstylel, style2, . . . 1 if several style options are desired. If more than one graph 
is to be modified, the styles are applied cyclically. 


Some of the more common style options are listed in the following: 


e GrayLevel [x] for0<x<1 allows lightening of the image. The closer x is to 1, the lighter the 
image will appear. 


EXAMPLE 10 


Plot[£Sin[x], Si n[2x], Sin[3x]}, £x, -m T}, 
PlotStyle—tGrayLevel[0.0], GrayLevel [0.5], GrayLevel[0. 8] }] 


1.0 


0.5 


-1.0 


e Dashi ng[ try r4 ..., r,3] specifies that the curves are to be drawn dashed with successive 
segments and spaces of lengths r,, г,, ... , г, repeated cyclically. Each r value is given as a fraction 
of the total width of the graph. Das hi ng[ г] is equivalent to Dashi ng[ «r, r}] and gives equal 
size dashes and spaces. For convenience, г can be replaced with one of the following: Ti пу, Small, 
Medium, orLarge. 
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. Absol uteDashi ng[ id, а, ..., dm}] specifies that the curve is to be drawn dashed, with suc- 
cessive segments having absolute lengths d, d, ... , da repeated cyclically. Absol ut eDashi ng[ d] 
is equivalentto Absol uteDashi ng[ «td, d+] and gives equal size dashes and spaces. The absolute 


lengths are measured in units of printer's points, equal to — of an inch. For convenience, d can be 
replaced with one of the following: Ti ny, Smal 1, Medi um, orLarge. 


EXAMPLE 11 


Plot[{x?, 2x?, 3x7}, (x, -3, 3}, 
PlotStyle —tDashing[.01], Dashing[.03], Dashi ng[ (. 03, . 13] 1] 
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e Thi ckness[r] specifies that the graph is to be drawn with a thickness г. The thickness г is given 
as a fraction of the total width of the graph. The default value for two-dimensional graphs is 0.004. 
For convenience, г сап be replaced with one of the following: Ti ny, Smal 1, Medi ит, orLarge. 
These yield thicknesses independent of the width of the graph. 


• AbsoluteThi ckness[d] specifies that the graph is to be drawn with absolute thickness d. The 
absolute thickness is measured in units of printer's points, equal to 72 of an inch. 


EXAMPLE 12 


Plot[ GC, 2x?, 3х2}, (x, -3, 3}, 
PlotStyle—tThickness[.005], Thickness[.01], Thickness[.02]}] 


25| 
20r 
15 | 


10 


There are several style options that control color. 


e Ние[ hue] isa color specification. As hue varies from 0 to 1, the corresponding color runs through 
red, yellow, green, cyan, blue, magenta, and back to red again. 
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• Ние[ hue, saturation, brightness] specifies colors in terms of hue, saturation, and brightness levels. 
The values of saturation and brightness must be between 0 and 1. 

• Ние[ hue, saturation, brightness, opacity] specifies colors in terms of hue, saturation, brightness, 
and opacity levels. The values of saturation, brightness, and opacity must be between 0 and 1. (An 
opacity of 0 represents perfect transparency.) 

• RGBCol ог [ red, green, blue] specifies the mixture of red, green, and blue to produce a certain 
color. The values of red, green, and blue must be between 0 and 1. RGBColor[1, 0, 0] produces 
a pure red display, RGBColor[0, 1, 0] produces green, and RGBColor[0, 0, 1] produces 
blue. 

e RGBColor[red, green, blue, opacity] is similar to RGBCol or [ red, green, blue]. The 
values of red, green, blue, and opacity must be between 0 and 1. (An opacity of 0 represents 
perfect transparency.) 

e CMYKCol or[ cyan, magenta, yellow, black] specifies the mixture of cyan, magenta, yellow, and 
black to produce a certain color. The values of cyan, magenta, yellow, and black must be between 0 
and 1. CMYKCol or is useful when printing colored graphs on paper. 

• CMYKCol or[ cyan, magenta, yellow, black, opacity] issimilarto CMYKCol or[ cyan, magenta, 
yellow, black] . The values of cyan, magenta, yellow, black, and opacity must be between 0 and 1. (An 
opacity of 0 represents perfect transparency.) 


Certain colors can be mentioned by name. Available choices are: 


Red Green Bl ue Black 

White Gray Cyan Magenta 

Yellow Brown Orange Pi nk 

Purple LightRed Light Green LightBlue 

LightGray Light Cyan Light Magenta LightYellow 

Light Brown Light Orange Li ght Pi nk LightPurple 
EXAMPLE 13 


Plot[ £x?, 2х2, 3х2), tx, -3, 3}, PlotStyle + tRed, Green, Bl ue}] 


When plotted, х2, 2x?, and 3x? appear 
red, green, and blue, respectively. 


Mathematica makes it easy to compute the RGB “formula” for custom colors. Simply click on 
Insert = Color and select the color of your choice. The exact RGB combination for the color selected 
will be placed into your Mathematica notebook at the cursor position. 
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Basic colors: 
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Custom colors: 
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Hue: 160 Red: 
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168) Green: 
Define Custom Colors ColorlSolid Lum: 75 Blue: 


Color selector on a PC. 


өсе Colors c 
Vive = 
à _ 


Color selector оп а M acintosh. 
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The function Col or Data contains a list of predefined colors. Type Col or Data[ "Legacy", 
"Names"] to seean extensive list of named colors. To see the RGB formula, replace "Names" with the 
name of the color within quotes. 


EXAMPLE 14 
ColorData ["Legacy", "AliceBlue"] 
RGBColor[0.941206, 0.972503, 1.] 


There are two graphics options that can be used to label graphs. 
PlotLabel specifies an overall label for the graph. 


e PlotLabel — "description" labels the graph with a title. 
AxesLabel allows one or both axes to be labeled with an appropriate description. 


AxesLabel — None specifies that neither axis should be labeled. This is M athematica's default. 
AxesLabel — "label" specifies a label for the y-axis only. 

AxesLabel —>{"label"} specifies a label for the x-axis only. 

AxesLabel — ("x-label", "y-label"} specifies labels for both the x- and y-axes. 

AxesLabel — Automatic specifies that the independent variable used in the PI ot command 
should be printed along the horizontal axis. 


EXAMPLE 15 


Plot[Sin[x], £x, 0, 27}, PlotLabel + "GRAPH OF Y = SIN X", 
AxesLabel >{"Values of x", "Values of sinx"}] 


GRAPH OF Y =SIN X 


Values of sin x 
10r 


0.5 


+ Values of x 


-0.5 


-1.0+ 


Pl ot Legend is a useful option that can be used to label the graphs in a legend box. It is contained 
within the package Pl ot Legends" , which must be loaded prior to its use. 


• PlotLegend[ «"text1", "text2", ...3] attaches textl, text2,... to each description specified in 
PlotStyle. 

• LegendPosition — ta, b} specifies the position for the lower-left corner of the legend box. 
The center of the graphic is position (0, 0) and the longest side of the graphic runs from -1 to 1. 


LegendSi ze determines the size of the legend box. 


e LegendSi ze — scale scales the size by a factor of scale. 
. LegendSi ze— ta, b} uses aand b to determine the size of the legend box. The value 1 corresponds 
to half the length of the longest side of the graphic. 
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LegendOri ent ati on determines the orientation of the legend box. 


e LegendOri entation —Verti cal (default) prints the descriptions top to bottom. 
e LegendOrientati on — Horizontal prints the descriptions left to right. 


LegendShadow determines the positioning of the shadow of the legend box. 


• LegendShadow — Automatic is the default. 

e LegendShadow — None produces no shadow. The legend box is transparent. 

e LegendShadow — tx offset, y offset? moves the shadow to the right or up for positive values 
and to the left or down for negative values. 


EXAMPLE 16 
«PI otLegends' 


Plot[ £x?, 2x?, 3х2}, {x, -3, 3), PlotStyle + {Dashing[{.01}], 
Dashi ng[ (€. 033], Dashi ng[ <. 03, .083]}, PlotLegend — { "х2", "2х2", "3x?"}] 
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ЕХАМРІЕ 17 
«PI otLegends' 
Plot[ G7, 2x?, 3х2}, tx, -3, 3}, 
PlotStyle—tDashing[ 1.0153], Dashi ng[ €. 033], Dashi ng[ 06.03, .083]?, 
PlotLegend >{"x2", "2x?", "3x?"}, LegendPosition  {. 2, .41, 
LegendSize —.5, LegendOrientation — Horizontal, 
LegendShadow->{-.05,. 05+] 
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If desired, graphs can be enclosed within a rectangular frame. A dditionally, one or both axes of a graph 
can be suppressed. Fr ame specifies whether a frame should be drawn around the graph. 


e Frame — True specifies that a rectangular frame is to be drawn around the graph. 
e Frame False specifies that no frame is to be drawn (default). 


Axes specifies whether the axes should be drawn. 


e Axes — True specifies that both axes will be drawn (default). 
e Axes — False draws no axes. 

• Axes >{False, True} draws a y-axis but no x-axis. 

• Axes — (True, False} draws ап x-axis but no y-axis. 


EXAMPLE 18 


Plot [sir (x, - 3, 3), Frame True, Axes > False | 


1.0 
0.8. 
0.6 L 


0.41 


Gri dli nes specifies that a rectangular grid should be drawn in the graph. 


e Gri dLi nes — None specifies that no grid lines are to be drawn (default). 

e GridLi nes —Automati c specifies that the gridline positions are to be chosen by M athematica. 

e Gri ді nes — cxlist, ylist} specifies that gridline positions are to be drawn at the specified loca- 
tions. xlist and ylist are lists of numbers enclosed within {} or may (individually) be specified as 
Automatic, in which case Mathematica will choose their location. 


EXAMPLE 19 When plotting trigonometric graphs, it is convenient to have vertical grid lines placed at multiples 
of 1/2. 


Plot[Sin[x], £x, 0, 2m}, GridLines >{{0, л/2, m, 37/2, 2 л}, Automatic}] 


1.0 


0.5 


-0.5 


-1.0 
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Tick marks and corresponding labeling along the axes can be controlled with the option Ti cks. 
FrameTi cks offers similar options along the edges of a frame when Fr ame — True is set. 


e Ticks — None specifies that no tick marks are to be drawn. The numerical labeling of the axes is 
suppressed. 

e Ticks — Automatic specifies that tick marks will be drawn (default). 

e Ticks — txlist, ylist} specifies that tick marks will be drawn at the specified locations. xlist and 
ylist are lists of numbers enclosed within {} or may be specified as Aut o mati c. 


EXAMPLE 20 Неге аге three ways to plot the graph y = x? 


x 3, 3 
Pl ot Fst (х, - 2, J 


х?+1 


x? і 
Plot | dap (x, -3, 3), Ticks > None | 


2 
Plot | fep Qo 23,3), Ticks = {{-3, 3}, Automatic} | 
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The option Fil | i ng will plot a shaded graph. 


e Filling Axis fills from the curve to the x-axis. 

e Filling Top fills from the curve to the top of the plot. 

e Filling Bottom fills from the curve to the bottom of the plot. 

e Filling y fills from the curve to value y in the vertical direction. 

e Filling = {ту fills to the mth curve. 

e Filling әт {п} fills from the mth curve to the nth curve. 

e Filling {т ә у, g}} fills from the mth curve to the value y using style option g. 

• Filling—tm- ttn), g}} fills from the mth curve to the nth curve using style option g. 
EXAMPLE 21 


Plot[1- x?, tx, -1, 1}, Filling Axis] 


410 


Plot[£1- х2, 2- 2x7}, tx, - 1, 1}, Fillingt(1o (222] 


-1.0 


Plot[{1- x? 2- 2x7, 3- 3х2}, tx, - 1, 13, Filling >{1 342}, 225 (31)] 
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EXAMPLE 22 
Plot[«¢1- x^; 2- 2x’, 3- 3x7}, tx, - 1, 1}, 
Filling 1 — «0, Orange}, 1+{{2}, Green}, 2 (63), Yell ом} }] 


SOLVED PROBLEMS 


4.1 Plot the graph of y = хех from x=0 ох = 5. 
SOLUTION 
Plot[x Exp[-x], {x, 0,55 


4.2 Plot f(x) 2|1- |x|| on the interval [-3, 3]. 
SOLUTION 


Plot[Abs[1- Abs[x]], tx, -3, 31] 
2.0 
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4.3 The standard normal curve used in probability and statistics is defined by the function 


1 10 
f (x)= ——e? 
T Ja 
Sketch the graph for -3 <x <3. 
SOLUTION 
zl „lyh 
Fx ]= A —exp| he 


Plot[f[x], tx, -3, 3)] 


4.4 Plotthe graphs y 2sinx, у= 2sinx, and y 23sinx from -2r to 27 on the same set of axes. 
SOLUTION 
Plot[£Sin[x], 2Sin[x], 3 Sin[x]}, tx, -2m 271] 


4.5 The graphs of inverse functions are symmetric with respect to the line y = x. Plot the inverse functions 
f(x) 2x, 0xxx2, and f(x) = /x ‚0 < х < 4, as solid curves and the line y =x as a dotted line 
and observe the symmetry. 


CHAPTER 4 Two-Dimensional Graphics 


SOLUTION 

gl =Plot[ x’, tx, 0, 23]; 

g2=Plot[ Vx, tx, 0, 43]; 

g3 =Plot[x, £x, 0, 4}, PlotStyle >Dashing[{0, 0, .013]]; 

Show[g1, g2, 03, AspectRatio —> Automatic, PlotRange >{{0, 4}, Automatic}] 


4.6 Sketch the graphs of y=x?, y 2 —X?, and у= х? ѕіп10х, -27 < x < 27, on а single set of axes 
enclosed by a frame. 


SOLUTION 


Plot[ GC, -x?, x?Sin[10x] 2, {x, - 27, 2m), Frame True] 
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4.7 The family of Chebyshev polynomials is used in approximation theory and numerical analysis. М athe- 


4.8 


тайса represents these polynomials as Cheb y shevT[ n, x] .Onasinglesetof axes, using some device 
to distinguish the curves, plot a labeled graph showing the Chebyshev polynomials of degrees 2, 3, and 4. 


SOLUTION 1 


«Pl ot Legends" 

Plot[{ChebyshevT[2, x], ChebyshevT[3, x], ChebyshevT[4, x]}, tx, -2, 2}, 
PlotStyle—tGrayLevel [0], GrayLevel [. 41, GrayLevel[.7]+}, 
PlotLegend >{"T2", "тз", "T4"}, LegendPosition —+{1, 0+] 


SOLUTION 2 


«Pl ot Legends’ 


Plot[ tChebyshevT[2, x], ChebyshevT[3, x], ChebyshevT[4, x]}, 
{x, -2, 2}, PlotStyle — tRed, Green, Blue}, 
PlotLegend >{"T2", "тз", "T4"), LegendPosition — «1, 0+] 


Color graph not shown. 


Sketch the graphs of y=1+sinx,0<x<2n, y22-sinx, 2r <x < 4л, and y=3+sin,4n<x<6n 
оп one set of axes. 

SOLUTION 

gl =Plot[1+Sin[x], tx, 0, 2x1]; 

92 zPlot[2 + 5і п[ х], tx, 2m, 4x3]; 

93 =Plot[3 + Si п[ х], tx, 4л, 6x3]; 

Show[ 01, 92, 93, PlotRange Automatic] 


?2 
А? 
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4.2 Additional Graphics Commands 


Standard geometric shapes can be constructed with the Gr aphi ¢s command and viewed with the Show 
command. 


m Graphi cs[ primitive] creates a two-dimensional graphics object. 


The following are a few of the more common graphics primitives available in M athematica: 


Circle[ 4x, у}, ГІ creates acircle centered at (x, y) having radius т. 

Di sk[ €x, у}, ГІ creates a disk (filled circle) centered at (x, y) having radius г. 

Poi nt[ «x, ун plots a point at coordinate (x, y). 

Li ne[ €OX1, yl}, {x2, y2}, ... 1] draws lines connecting points (x1, y1), (x2, y2),... 
Rectangle[ 4x1, yl}, 4x2, y21] creates a filled rectangle having (x1, y1) and (x2, y2) as 
opposite ends of a diagonal. 

Pol ygon[ ХІ, yl}, 1x2, у2%,... ] constructs a filled polygon having points (x1, y1), 
(x2, y2), .. . as vertices. 

Text[textstring, (x, y+] prints a string of text centered at position (x, y). Text St yl e allows 
you to change the default font and size used in the graph'stext. Text St yl e 5 tFontFamily > 
fontname, Font Si ze — size} is asimple, but useful, application. 


When viewing graphics objects using Show, the default, Axes — Fal se, causes the object to be 
drawn without axes. If desired, Axes True may be included as an option. 


EXAMPLE 23 


gl-Graphics[Circle[«40, 0}, 1]]; 

g2=Graphics[Line[{{-1, -1}, {-1, 1}, (1, 1}, (1, -1}, {-1, -1}3]]} 
93 =Graphics[Polygon[{{-1, 0}, «0, 1}, {1, 0}, (0, -1}3]]; 
g4=Graphics[Text[ "Square ina Circle ina Square", (0, 1.2}, 


TextStyle > {FontSize >20}]]; 


Showl 01, 92, 93, 941 


Square in a Circle іп a Square 


Curves are sometimes defined parametrically, i.e., the x- and y-coordinates of points are defined as two 
independent functions of a third variable. Parametric curves, which are usually more complex in their 
behavior, сап be viewed using Parametri cPl ої. 


m ParametricPlot[cx[t], y[t]», tt, tmin, tmax}] plots the parametric curve 


X = X(t), y = y(t) over the interval tmin < t < стах. 
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m ParametricPlot[ccxl1[t], yl[t]}, «x2[t], y2[t]},...3, «tt, tmi n, tmax}] 
plots several sets of parametric equations over tmin < t < стах. 


EXAMPLE 24 
ParametricPlot[ (t?- 2t, t?- t), (t, -2, 23] 


EXAMPLE 25 
x[t ] = Cos[t] - Cos[100t] Sin[t]; 
ylt 122Sin[t]- 51 п[100 +]; 
Рага тегі сРІ ої[ <х[], y[t]3, tt, 0, 2:2] 
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Implicitly defined curves can be plotted with the Cont our Pl ot command. 


= ContourPl ої [ equation, «x, xmi n, xmax}, fy, ymin, ymax}] plots equation by treating 
it as a function in three-dimensional space, and generates a contour of the equation cutting through 
the plane where z equals zero. 


equation must be of the form 1hs -- rhs. Note the double equal sign in the middle. 


m Contour Pl ої [ {equation1, equation2,...+, {x, xmin, xmax), {y, ymin, утах} ] 
plots several implicitly defined curves. 


By default, ContourPlot sets Axes —> False andFrame — True. Additional options such as 
Dashing, Grayl evel, Thickness, etc. determining the appearance of the graph тау be included 
using Cont our Style. 


EXAMPLE 26 Plot the equation x?y? = (y- 1? (4— y?) for -10 <x < 10, -2 <y x2. (Conchoid of Nicomedes.) 


ContourPlot[x?y? == (у + 1)2(4 - y?), tx, -10, 103, ty, -2, 2}, 
AspectRatio — Automatic] 


2 Ет T T T T T T T T T T T T T T T T T T T 


-10 | | -5 | | 0 | | | 5 | | 10 


ContourPlot[x?y? == (у + 1?(4 - y?), £x, -10, 10}, fy, -2, 2}, 
AspectRatio — Automatic, Axes True, Frame False] 


EXAMPLE 27 Plot the equation х? + y? = бху for-4<x<4,-4<y<4. (Folium of DeCartes.) 
ContourPlot[x? +y? 6 x y, (x, -4, 4}, fy, -4, 4}, Axes True, Frame False] 


AL 
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EXAMPLE 28 Plotcos(x — у) = ysinx and sin(x — у) = ycosx, -2 < x < 2, -2 < y < 2 on one set of axes. 


ContourPlot[{Cos[x- y] == у Sin[x], Sin[x- y] == у Cos[x]}, tx, -2, 2}, ty, -2, 2}, 
Contour Style —>{Dashing[. 01], Dashing[.03]+, Axes True] 
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For curves defined in polar coordinates, Pol ar Pl ot isavailable. 


m PolarPlot[f[0], 10, Omin 0,21 generates a plot of the polar equation r = f (0) as Ө varies 
from Omin to Omax- 
= PolarPlot[«f1[ 0], Ғ2ГӨІ,...», «0, Өш, 0,,)] plots several polar graphs on one set 
of axes. 
Note: The default aspect ratio for Polar Plot isAspectRatio — Automatic. 
EXAMPLE 29 


PolarPlot[3(1- Cos[0]), 160, 0, 2:1] (This curve is called a cardioid.) 


4r 
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EXAMPLE 30 Plot the three-leaf rose г = sin 30 inside the unit circle r = 1. 
PolarPlot[{1, Sin[36]}, 50, 0, 21] 


SOLVED PROBLEMS 


4.9 Sketch the parabola y = x? - 9 and a circle of radius 3 centered at the origin. 
SOLUTION 
gl =Plot[x?- 9, {х, - 4, 4}]; 
g2=Graphics[Circle[{0, 0}, 311; 


93 =Graphics[Text[ "CIRCLE INA PARABOLA", (0, 6}, 
TextStyle — {FontSize 4163] ]; 


Show[ g1, 92, 93, AspectRati o — Automatic] 


CIRCLE IN AIPARABOLA 
5L 


4,10 


4.11 


4.12 
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The curve traced by a point on a circle as the circle rolls along a straight line is called a cycloid and 
has parametric equations x 2 г(0 —sin8), y 2r(1— соѕ0) wherer represents the radius of the circle. 
Plotthe cycloid formed as a circle of radius 1 makes four complete revolutions. 


SOLUTION 


ParametricPlot[£0- Sin[ Ө], 1- Cos[6]}, t0, 0, 87, 
Ticks a tAutomatic, «0, 1, 233] 


0 5 10 15 20 25 


Let P bea point at a distance a from the center of a circle of radius r. (Imagine the point being placed 
on a spoke of a bicycle wheel.) The curve traced by P as the circle rolls along a straight line is called 
a trochoid. Its parametric equations are x =r @—asin@, y =г – а соѕ0. Sketch the trochoid with 
г = 1, а = 5 аѕ ће circle makes four revolutions. What would the graph look like if r = 1, a = 2 so 
that the point is outside the circle? 

SOLUTION 

r=1; a=1/2; 

ParametricPlot[{r Ө- a Sin[ 6], r- aCos[6]}, {0, 0, 8x}, 


PlotRange — tAutomatic, {0, 23}, 
Ticks — tAutomatic, (0, 1, 211] 


0 5 | 10 15 20 ^ 25 


r=l;a=2; 
ParametricPlot[{r Ө- а Sin[ Ө], r- aCos[6]}, 10, 0, 872] 


3 


A circle of radius b rolls on the inside of a larger circle of radius a. The curve traced out by a fixed 
point initially at (a, 0) is called ahypocycloid and has equations 


х-(а-В)с050-- осос|а 66) 


y =(a—b)sine bsn(2cbo| 


Sketch the hypocycloid fora = 4, b = 1 (0 < x < 2л) and then again fora = 8, b 2 5 (0<х < 10m). 
SOLUTION 


x[0 ]:=(а- b) Cos[0] + b Cos | 3:30] 


УІ0 1:-(а- 6) 51 п[0) - ЖИЕНІ 
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а= 4; 
р = 1; 
ParametricPlot[{x[6], у[Ө] >, «40, 0, 2л}] 


4 

4 4 
-4 H 

а-8; 

b = 5; 


ParametricPlot[4x[0], y[0]», £0, 0, 1073] 
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4.13 Sketch the graph defined by the equation y? = x3(2—x),0<x<2,-2<y<2. 
SOLUTION 


ContourPlot[ y? zx?(2 - x), £x, 0, 2}, £y, - 2, 2}, Frame False, Axes True] 


4.14 Sketch the graph of the Tschirnhausen cubic: y? = x? + 3х2, -3 <х €3, -8 <у < 8. 
SOLUTION 


ContourPlot[ y? x? + 3X?, (x, - 3, 3}, £y, - 8, 8}, Axes True, Frame False] 
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4.15 The polar graph г = Ө is called the Spiral of Archimedes. Sketch the graph for 0 « 0 < 10x and then 
again for - 10x € 0 < 10m. 


SOLUTION 
PolarPlot[9, «0, 0, 10m] PolarPlot[6, Ө, -10m, 10m] 


4.16 The equation r = sin n6, where п is a positive integer, represents a family of polar curves called 
roses. Investigate the behavior of this family and form a conjecture about how the number of loops 
is related to n. 


SOLUTION 


91 =PolarPlot[Sin[26], (0, 0, 2:2, Ticks False, PlotLabel —"n-2"]; 
92 -PolarPlot[Sin[30], (0, 0, 2:3, Ticks False, PlotLabel ~"n=3"]; 
93 = PolarPlot[Sin[40], £0, 0, 27}, Ticks False, PlotLabel —"n-4"]; 
g4 = PolarPlot[Sin[50], (0, 0, 2:2, Ticks False, PlotLabel —"n-5"]; 
GraphicsArray[{{gl, g2}, 503, 04}}] 


oS 7 
ck 


Conclusion: If n is odd, the rose will haven leaves. If n is even, there will be 2n leaves. 
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4,17 Sketch the cardioid г 21—cos8 and the circle r = 1 оп the same set of axes. 


SOLUTION 
PolarPlot[{1- Cos[6], 1}, t0, 0, 2x}] 


4.3 Special Two-Dimensional Plots 


Discrete functions, i.e., functions defined on a discrete set, can be visualized using the special plotting 
function Li st Pl ot. 


m ListPlot[¢y1, y2,...2] plots points whose y-coordinates are y1, у2,... The x-coordinates 


are taken to be the positive integers, 1, 2,... 


m ListPlot[c«x1, y1}, (x2, у2},...}] plots the points (x1, y1), (x2, y2),... 


Standard graphics options are permitted. The form of the command would then be 


m ListPlot[ «yl, y2, ...?, options] or 
m ListPlot[ttxl1, yl}, «x2, y2),...), options] 


The most useful graphics options used with Li st Pl ot are 


PlotStyle —PointSize[d] where d specifies the diameter of the point as a fraction of the 
overall width of the graph. The default value is .008. In addition, the following symbolic forms can 
beused: Ti ny, Smal! , Medi ит, andLar ge. Thesespecify point sizes independent of the total width 
of the graphic. 1 
PlotStyle > AbsolutePointSize[d] where ais measured in printer's points, equal to 72 
of an inch. 

Plot Markers — Automati c will cause the point markers to take different shapes, e.g., circles, 
squares, diamonds, etc. This is useful when two or more sets of points are to be plotted. 

Filling Axis fills the graph vertically to the horizontal axis. 

Filling Bottom fillsthe graph vertically to the bottom of the graph. 

Filling Top fills the graph vertically to the top of the graph. 

Filling v fillsthe graph vertically to the value v. 


CHAPTER 4 Two-Dimensional Graphics 


EXAMPLE 31 The following plots a list of the squares of the positive integers 1 through 20. 


squares =Table[k?, £k, 1, 201]; 
ListPlot[squares] 


400 F . 
300 | e 
200 | t 
100 E "x 

5 10 15 20 


ListPlot[squares, PlotStyle —PointSize[.03]] 
400 + о 

300” ө 

20} ө 
100 - ө 
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...... 1 | 1 


EXAMPLE 32 


randomintegers =Table[Randoml nteger, [£1, 203], tk, 1, 301]; 
ListPlot[randomi ntegers] 


15 eoe 

Я t 442. ” * The Tabl е command generates а list of 
io L . 30 random integers, each between 1 and 20. 
5 |5 
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ListPlot[randomi ntegers, Filling — Axis] 
15- 
10- 
5L 
1 
5 10 15 20 25 30 


m ListLinePlot[ ty, y»... +] plots points whose y-coordinates are у,, у;,... and connects 
them with line segments. The x-coordinates are taken to be the positive integers. 

m ListLinePlot[ tO, Yi}, OG, у,},...}] plots the points (x, y,), (x4 у-),... and con- 
nects them with line segments. 


m ListLinePlot[list, list, ...] plots multiple lines through points defined by list;, 
lista... 
TheoptionsforLi st Pl ot may beusedforListLinePl ot. TheFilli ng option may be used to 


create a filled polygon that describes the data. 


EXAMPLE 33 (Continuation of Example 32) 


ListLinePlot[randomi ntegers] 


15- 
10} 
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ListLinePlot[randomintegers, Filling —Axis]] 
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Different types of bar graphs can be drawn with M athematica, using the command Bar Chart. 


Note: Starting with version 7, Bar Chart can be found in the M athematica kernel. If you are using 
version 6, you will find Bar Chart inthepackageBar Charts" which must be loaded prior to use. See 
the Documentation Center for appropriate usage. 


= BarChart[ datalist] draws a simple bar graph. datalist is a set of numbers enclosed within 
braces. 

= BarChart[ {datalistl, datalist2,...3] draws a bar graph containing data from multiple data 
sets. Each data list is a set of numbers enclosed within braces. 


EXAMPLE 34 
dataset172 (1, 2, 3, 4, 5}; 
dataset2-2 (6, 5, 4, 3, 2}; 
gl-BarChart[dataset1]; 
92 = BarChart[ tdataset 1, dataset2}]; 
GraphicsArray[tgl, g2}] 
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If a customized look is desired, there аге a variety of options that can be invoked. The format of the 
command with options becomes 


= BarChart[ datalist, options] 
= BarChart[ {datalistl, datalist2,...1+, options] 


Some of the more popular options are 


e Chartstyl e — g specifies that style option g should be used to draw the bars. Examples of style 
options areGrayLevel ,Hue, Opacity,RGBCol or, and Colors (Red, ВІ ue, etc.). 

e Chartstyle—{gl, g2,... } specifies that style options 01,02,... should be used cyclically. 

e ChartLayout — "layout" specifies that a layout of type layout should be used to draw the graph. 
Examples of layouts are "Stacked", in which case the bars are stacked on top of each other rather 
than placed side by side, and "Percentile", which generates a stacked bar chart with the total 
height of each bar constant at 100%. 


BarSpacing controls the spacing between bars and between groups of bars. The default is 
BarSpacing — Automatic which allows Mathematica to control the spacing. 


• BarSpacing — sallows a space of s between bars within each data set. The value of s is measured 
as a fraction of the width of each bar. 

* BarSpacing ts, t allows a space of s between bars within each data set and a value of t 
determines the space betw een data sets. T he values of s and t are measured as a fraction of the width 
of each bar. 


In each of the preceding Bar Spaci ng commands, the values of s and t may be replaced by the pre- 
defined symbols None, Ті ny, Smal 1, Medi umandLar ge. 
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e Bar Ori gi n — edge controls where the bars originate from. The default value of edge is Bot t om. 
Other acceptable values areTop,Left,andRi ght. 

e ChartLabels — tlabell, label2, ... > specifies the labeling for each bar corresponding to each 
value in the data list. 


EXAMPLE 35 


datasetl={1, 2, 3, 4, 5}; 

dataset2=16, 5, 4, 3, 2}; 

91 =BarChart[{dataset1, dataset2}, ChartLayout > "Stacked"]; 

92 -BarChart[tdataset1, dataset2}, ChartLayout > "Percentile"]; 
GraphicsArray[tgl, g21] 


20+ 100 
151 80 E 
5 - 
EXAMPLE 36 


dataset 2 (6, 3, 4, 1, 5}, 
BarChart[dataset, ChartLabels — ("Bari", "Bar2", "Bar3", "Вага", "Bar5"}] 


Barl Bar2 Bar3 Bar4 Bar5 


EXAMPLE 37 


dataset = (6, 3, 4, 1, 5}; 

91 =BarChart[dataset]; 

92 -BarChart[dataset, BarOri gin —Top]; 
93 = BarChart[dataset, BarOrigin Left]; 
94 = BarChart[dataset, BarOrigin —Ri ght]; 
GraphicsArray[{{gl, 02}, 193, 9433] 
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Pie Charts may be constructed using thePi eChar t command. 

Note: Starting with version 7, Pi eChart can be found in the Mathematica kernel. If you are using 
version 6, you will find Pi eChart inthepackagePi eCharts' which must be loaded prior to use. See 
the Documentation Center for appropriate usage. 


m PieChart[datalist] draws a simple pie chart. datalist is a list of numbers enclosed within braces. 
= PieChart[ {datalistl, datalist2, ... »] draws a pie chart containing data from multiple data sets. 
Each data set is a list of numbers enclosed within braces. 


Similar to Bar Chart , there are options that can be invoked to enhance the display. T he format of the 
command with options becomes 


= PieChart[datalist, options] 
в" Pi eChart[ {datalistl, datalist2,...}, options] 


Some of the available options associated with PieChart are 


e Chartstyle — g specifies that style option g should be used to draw the bars. Examples of style 
options areGrayLevel ,Hue, Opacity,RGBCol or, and Colors (Red, ВІ ue, etc.). 
e Chartstyle—tgl g2,... specifies that style options g1, g2, . . . should be used cyclically. 


SectorSpacing determines the spacing between concentric sectors for different data sets and the spac- 
ing between sectors within a data set. 


e SectorSpacing — s determines the spacing between concentric sectors for different data lists. 
The value of s is measured as a fraction of the radial width of the sectors. 

e SectorSpacing {5 t allows a space of s between sectors corresponding to each data set and 
a space of t between concentric sectors for different data sets. Тһе values of s and t are measured as 
a fraction of the radial width of the sectors. 


іп each of the preceding Sect or Spacing commands, the values of s and t may be replaced by the 
predefined symbols None, Ti пу, Smal | , Medi umandLar ge. 
Note: Clicking on any sector of a pie chart will cause it to shift radially outward by an amount s. 


EXAMPLE 38 


dataset = (1.5, 3, 4.5, 9}; 

91 =PieChart[ dataset]; 

g2-PieChart[dataset, SectorSpacing — {Ті ny, None}]; 
GraphicsArray[tgl, 9231 
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EXAMPLE 39 


datalist 211.5, 3, 4.5, 9}; 


91 =PieChart[datalist, ChartLabels —t"FirstSector", "Second Sector", 
"Third Sector", "Fourth Sector"}] 


Second sector 
Third sector 


SOLVED PROBLEMS 


4.18 Plot the first 50 prime numbers. 
SOLUTION 


primelist =Table[Prime[k], £k, 1, 501]; 
ListPlot[pri melist] 
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4.19 Plot the points (0, 0), (2, 7), (3, 5), and (4, 11) and connect them with line segments. 
SOLUTION 


list ={{0, 0}, (2, 7}, (3, 5}, (4, 113}; 
ListLinePlot[list, Plot Markers Automatic] 


4.20 Plot the set of points corresponding to the first ten primes, the first ten Fibonacci numbers, and the first 
ten perfect squares. First plot individual points and then plot them connected with line segments. 


SOLUTION 


«Pl ot Legends’ 

listl=Table[Prime[n], tn, 1, 101]; 

1152 =Table[Fibonacci[n], tn, 1, 103]; 

list3 =Table[n’, {n, 1, 101]; 

ListPlot[¢list1, list2, list3}, Plot Markers — Automatic, 


PlotLegend >{"Primes", "Fibonacci", "Squares"}, 
LegendPosition — 11, 03] 
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ListLinePlot[tlistl1, 11512, 11513}, PlotMarkers Automatic, 
PlotLegend >{"Primes", "Fibonacci", "Squares"}, 
LegendPosition — «1, 0}] 
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4.21 


4,22 
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The monthly sales for XY Z Corp. (in thousands of dollars) were 


JAN РЕВ МАВ АРА [MAY [JUNE |JULY |AUG [SEPT |OCT [NOV | DEC 
13.2 51 1724 |126 197 (22% |202 |183 |162 |150 |121 |86 


Construct a bar graph illustrating this data. 

SOLUTION 

months = { "Сап", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", 
"Oct "y "Nov", "Dec "} Н 


salesdata = (13.2, 15.7, 17.4, 12.6, 19.7, 22.6, 20. 2, 18.3, 
16. 2, 15.0, 12.1, 8. 6}; 


BarChart[salesdata, ChartLabel s — months] 
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Construct a pie chart illustrating the data of the previous problem. 

SOLUTION 

mo nt hs — { "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", 
"Sep", "Oct", "Nov", "Dec"}; 


salesdata = (13.2, 15.7, 17.4, 12.6, 19.7, 22.6, 20.2, 18.3, 
16.2, 15.0, 12.1, 8.6}, 


PieChart[salesdata, ChartLabel s — months] 


7. 
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4.4 Animation 

Animation effects can be produced quickly and easily through the use of the Ani mat e command. This 
command displays several different graphics images rapidly in succession, producing the illusion of 
movement. The form of the command is 


= Ani mate[ expression, ck, m, n, i}] 


where expression is any M athematica command with parameter k which varies from m to nin increments 
of i (optional; if omitted, i varies continuously from m to n). 


The following example gives an interesting animated description of the behavior of the odd powers of 
X" as n gets larger. 


EXAMPLE 40 
Ani mate[ Plot[x*, £x, -1, 1}, PlotRange 5 (-1, 1}, Ticks False], tk, 1, 19, 21] 


«--д Taga / 


The speed of the animation and the direction are easily controlled by clicking on the r^ ЕЗ апа SS 
buttons. The animation can be paused, using the | [| button. 

To allow the user more control over the animation, the Mani pul at e command сап be used. 
Mani pul ate works very much the same way asAni mat e exceptit allows the user to control the param- 
eter directly with a slider. 


=» Mani pul ate[ expression, tk, m, n, i 3] 


EXAMPLE 41 
Mani pul ate[ Pl ot[ x*, £x, - 1, 1}, PlotRange >{-1, 1}, Ticks False], {k, 1, 19, 23] 


Click here for animation controls 
| z}. Click here for an 
9 ] 7 options menu 


A convenient way of controlling expressions involving integer parameters is by clicking on "radio 
buttons." This can be accomplished with the option Control Type — Radi oButton. 
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EXAMPLE 42 


Mani pul ate[ Pl ot[ x*, £x, - 1, 1}, PlotRange(-1, 1}, Ticks False], 
£k, 1, 19, 2}, Control Type 5 RadioButton] 


k01036050702010130:50:7 O19 


expression may involve two or more parameters. In this case the form of the command is 


= Ani mate[expression, (КІ, ml, nl, i 12, «k2, m2, n2, i2},...] 
в Mani pul ate[ expression, {k1, ml, n1, i 1), «k2, m2, n2, i 2»5,...] 


Each parameter can be controlled independently (speed, direction, pause). 


EXAMPLE 43 


Ani mate[Plot[a Si n[b x], «x, 0, 27}, PlotRange  t- 10, 10+], 
(а, 0, 10}, cb, 0, 105] 


a 1 ШЕеЫЫ 
b 1— maga 


EXAMPLE 44 This animation shows a circle of varying radius whose center varies from (-1, - 1) to (1, 1). 
Pause each variable (x, y, x) to seethe effect. 


Ani mate[ Graphics[Circle[«Sin[x], Cos[y]}, r], Axes True, 
PlotRange => £C 2, 2}, 5-2, 233], {x, 0, 2m, ty, 0, 2m}, tr, 0, 11] 
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Ani mate and Mani pul at e are not limited to the presentation of graphics. We will use these com- 
mands in other contexts in later chapters. 


SOLVED PROBLEMS 


4.23 Construct an animation of the Spiral of Archimedes, r = Ө as Ө varies from 8л to 10m. 
SOLUTION 


Ani mate[PolarPlot[0, 10, 0, 87+ 0}, Ticks False, 
PlotRange > {{- 107, 107}, {- 107, 107} }], 1% 0, 21] 
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4.24 UseMani pul ate to simulate a point "rolling" along a sine curve from 0 to 2m. 
SOLUTION 
First we construct the sine curve. 


sincurve =Plot[Sin[x], £x, 0, 27}, Ticks False] 


Now we animate the sequence of points as red disks of radii 0.05. 


Mani pulate[Show[sincurve, Graphics[{Red, Disk[{x, Sin[x]}, 0.05] }], 
PlotRange — ((0, 2m}, {-1, 1}}, 
AspectRatio 5 Automatic], £x, 0, 27}]. 


M ove the slider to control the movement of the disk. 


Three-Dimensional Graphics 


5.1 Plotting Functions of Two Variables 
A function of two variables may be viewed as a surface іп three-dimensional space. The simplest command 
for plotting a surface is Pl ot 3D. 


m Plot3D[f[x, yl, «x, xmin, xmax}, «y, ymin, ymax}] plots athree-dimensional graph 
of the function £ [x, y] above the rectangle xmin < x € xmax, ymin < y € ymax. 

m Plot3D[ «fx, у], f.[x, yl... », (x, хтіп, xmax}, cy, ymin, ymax}] plots sev- 
eral surfaces on one set of axes. 


Mathematica's default axis orientation is as shown in the figure 
to the right. This is somewhat different from what appears in many 
calculus textbooks. 


EXAMPLE 1 


N 


Plot3D[Sin[x - y], іх,-туль fy, - m, m3] 


The option Pl ot Poi nts specifies the number of points to be used in each direction to produce the 
graph. Unlike two-dimensional graphics, the default for a three-di mensional ріоёіѕ РІ ot Poi nts —15. 
This often leads to graphs with ragged surfaces. Increasing РІ ot Poi nts will alleviate this condition. 


. Plotpoi nts —n specifiesthat n initial sample points should be used in each direction. A dditional 
points are selected by adaptive algorithms. 

e PlotPoi nts —(nx, ny} specifies that nx and ny initial sample points are to be used along the 
X-axis and y-axis, respectively. 
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The next example shows how an increase in the value of Pl ot Poi nts affects the “smoothness” of 
the resulting graph. 


EXAMPLE 2 


flx_, y_] =x’y? Expl -(? * y?) 1; 
Plot3D[f[x, yl, (x, -2, 2}, гу, -2, 23] 


M ost of the two-dimensional graphics options discussed in Chapter 4 will work with PI ot 3D. There 
are a few extra options that are new as well. The most popular ones are: 


Axes — Ра! se will suppress the axes from being drawn. 

Axes — (true or false, true or false, true or false} , where rrue оғ false is either True or 
False, Will determine which axes will be drawn. 

Boxed —Fal se will suppress the bounding box containing the graph from being drawn. 
BoxRatios — (sx, sy, sz) specifies the ratios of side lengths for the bounding box of the three- 
dimensional picture. Mathematica's defaultis BoxRati os —^ (1, 1, 0.4}.BoxRatios —1 is 
equivalent to BoxRat i os > fl, 1, 1}. 

Ticks — False will eliminate tick marks and corresponding labeling along the axes. 
Ticks — {true or false, true_or_ false, true_or_ false} , where true or. false is either True or 
False, will control ticks on individual axes. 


FaceGri ds is an option that draws grid lines on the faces of the bounding box. 


FaceGrids — All draws grid lines on all six faces of the bounding box. 
FaceGri ds — None (default) draws no grid lines. 
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e FaceGrids — ((xy yo Zi}, {Xo yo 2,},. 5 {Xe yo 24)) allows gridlines to be 
drawn on individual faces. Two of the three numbers in each sublist must be 0 and the third +1 to 
indicate which of the six possible faces will contain grid lines. 


AxesEdge isan option that specifies on which edges of the bounding box axes should be drawn. 


• AxesEdge — Automatic (default) lets Mathematica decide on which edges axes should be 


drawn. 


. AxesEdge >{{y,, z}, {xa 2}, (xs y;}} is where each of the x, y, and z values are either 1 or 
-1, to indicate on which edges of the bounding box the axes areto be drawn. 1 indicates that the axes 
will be drawn on the edge with the larger coordinate value, - 1 indicates the smaller coordinate value. 
A ny of the three lists (x, y) can be replaced by Aut omat i c, in which case Mathematica decides 
where to place the axis, or None, in which case the axis is not drawn. 

e BoxStyl е isan option that specifies how the bounding box isto be drawn. Box St yl e can be set 
to alist of style options such as Dashi ng, Thi ckness,GrayLevel , orRGBColor. 

e Mesh is an option that determines whether a mesh should be drawn on the graphic surface. The 
defaultis Mesh — True; Mesh —> False orMesh — None eliminates the mesh. 


The next example plots the parabolic cylinder z = x? using different options. 


EXAMPLE 3 (Graphs are grouped together for easy comparison.) 


Plot3D[x?, (x, 
Plot3D[x?, (x, 
РІ ot3D[x?, {x, 
Plot3D[x?, (x, 
Plot3D[x?, (x, 


-2, 23, (y, - 
-2, 23, ty, 
-2, 23, ty, 
-2, 23, ty, 
-2, 23, ty, 


2, 2] 


-2, 2}, Mesh False] 

-2, 2}, BoxRatios 1] 

-2, 2}, FaceGrids S (C1, 0, 0}, £0, -1, 011] 
-2, 23, AxesEdge >{{-1, 1}, {1,1}, (1, -1}}] 
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Three-dimensional graphics are generated as a sequence of polygons shaded to create a pleasing three- 
dimensional affect. The polygons are drawn opaque so that surfaces behind other surfaces are hidden. The 
following option can be used to draw the surface transparent. 


• PlotStyle — FaceForm[ ] draws the polygons transparent (only the connecting lines are 
drawn) so that all surfaces are visible. 


EXAMPLE 4 (Graphs are grouped together for easy comparison.) 
Plot3D[1- y?, (x, -5, 5}, fy, -5, 5}, BoxRatios S (1, 1, 2}, Boxed False, 
Axes — Fal se] 


Plot3D[1- y?, «x, -5, 5}, fy, -5, 5», BoxRatios S (1, 1, 2}, Boxed False, 
Axes — False, PlotStyle —eFaceForm[ 11 


There are many different ways to view a three-dimensional drawing. Vi ewPoi nt is an option that 
views the surface from a specified fixed point outside the box that contains it. 


e ViewPoint —(x, у, z) gives the position of the viewpoint relative to the center of the box that 
contains the surface being plotted. The values of x, y, and z may be ee. 


The viewpoint coordinates are scaled in such a way that the longest side of the bounding box is 1. The 
viewpoint must be located outside the bounding box. Generally, the further from the surface the viewpoint 
is selected, the less the distortion. 

The default Vi ewpoi nt parameters are (1.3, -2.4, 2.0}. In addition, the following symbolic 
forms are permitted. Their meanings are self explanatory. 


ViewPoint — Above ViewPoint Front ViewPoint Left 
ViewPoint — Below ViewPoint — Back ViewPoint — Right 


EXAMPLE 5 This example shows the graph of the hyperbolic paraboloid z = x?— y? from different viewpoints. 
(Graphs are grouped together for easy comparison.) 
Plot3D[x?- y?, £x, -5, 53, fy, -5, 5}, BoxRatios 1] 
Plot3D[x?- у>, £x, -5, 53, fy, -5, 5}, BoxRatios 1, ViewPoint (2, 2, 21] 
Plot3D[x?- у>, £x, -5, 5}, fy, -5, 5}, BoxRatios 1, ViewPoint (1.5, -2.6, -1.51] 
Plot3D[x?- у>, £x, -5, 53, fy, -5, 5}, BoxRatios 1, ViewPoint Front] 
Plot3D[x?- y?, £x, -5, 5}, fy, -5, 5}, BoxRatios 1, ViewPoint —Top] 
Plot3D[x?- у>, £x, -5, 5}, fy, -5, 5}, BoxRatios 1, ViewPoint — Right] 
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Once plotted, a three-dimensional object сап be rotated three-dimensionally by clicking on the object and dragging 
the mouse. Dragging with the [CTRL] , [ALT] , or [OPTION] key depressed allows you to zoom in or out, and 
dragging with the [SHIFT] key depressed allows the graph to be moved horizontally or vertically in your note- 
book. Clicking on the object produces a rectangular boundary. D ragging a corner of this rectangle allows you to 
resize the object; dragging near but inside the rectangle allows you to rotate the object two-dimensionally. 


Curves and surfaces defined parametrically can be plotted using Par ametri cPl ot 3D. 


m ParametricPlot3D[ cx[t], y[t], z[t]}, «t, tmin, tmax}] plots a space curve in 
three dimensions for tmin € t € tmax. 

= ParametricPlot3D[ «x[s, t], y[s, t], z[s, t] », «s, smi n, smax}, «t, tmi n, t maxi] 
plots a surface in three dimensions. 


EXAMPLE 6 
ParametricPlot3D[ £Cos[t], Sin[t], 1/4}, tt, 0, 4x1] 


1.0 


10 


-0.5 


0.5 
1.0 


EXAMPLE 7 
ParametricPlot3D[ (Sin[s +t], Cos[s +t], 5}, £s, - 2, 2}, tt, -2, 21] 
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Pl ot 3D allows you to plot surfaces expressed by equations in rectangular coordinates. Special 
surfaces, called surfaces of revolution, can be drawn using the command Revol uti onPl ot 3D. (For 
additional options that provide more flexibility, please see Sur f aceOf Revol uti on, which is discussed 
in Section 5.3.) 


m RevolutionPlot3D[f[x], «x, xmin, xmax}] plots the surface generated by rotating the 
curve z = f(x) , xmin € X € xmax, completely around the z-axis. 

m RevolutionPlot3D[f[x], «x, xmin, xmax}, «0, Өтіп, Өтах}] plots the surface gen- 
erated by rotating the curve z = f(x) , xmin € X < xmax, around the z-axis for Өтіп < Ө < Omax 
where Ө is the angle measured counterclockwise from the positive x-axis. 

m RevolutionPlot3D[cf[t],g[t]s, tt, tmin, tmax?] generates a plot of the surface 
generated by rotating the curve x = f(t), z = g(t), tmin € t < стах, completely around the z-axis. 

m RevolutionPlot3D[ «f [t], g[t]}, «t, tmin, tmax}, (0, Өтіп, Өтах}] generates a 
plot of the surface generated by the curve x= f(t), z= g(t), tmin € t < tmax, around the z-axis for 
Өтіп < Ө < Өпах where Ө is the angle measured counterclockwise from the positive x-axis. 


EXAMPLE 8 Sketch the surface of revolution generated when the curve z = x , 0 € x < 4, is rotated about the 
z-axis. 

Firstwe draw the two-dimensional generating curve and then the corresponding surface of revolution. (Graphs are 
placed side by side for easy comparison.) 


Plot[ Jx , tx, 0, 4}, AspectRatio 1, AxesLabel =>{ "х", "2", 


RevolutionPlot3D[ Vx, {x, 0,4}, BoxRatios 1, ViewPoint t1, -5, 2}, 
AxesLabel >{"x", "у", "z"] 


Cylindrical and spherical coordinate systems are useful for solving problems involving cylinders, 
spheres, and cones. Point P has cylindrical coordinates (ғ, Ө, z) where r and Ө are the polar coordinates of 
the projection of P in the x-y plane. Since the distance from P to the z-axis is r, the surface z = z(r, 0) is a 
surface of revolution. 


m RevolutionPlot3D[z[r, Ө], ír, rmin, rmax}] generates a plot of the surface z = z(; Ө) 
described in cylindrical coordinates for rmin < r < rmax. 

m RevolutionPlot3D[z[r, Ө], {r, rmin, rmax}, (0, Өтіп, Omax?] generates a plot 
of the surface z= z(7 Ө) for rmin < r < rmax, Өтіп < 0 < Omax. 
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EXAMPLE 9 In cylindrical coordinates, the equation z = r represents the cone z = J x? y? . 
Revol uti onPlot3D[r, {r, 0, 1}, BoxRatios 1] 


Point P has spherical coordinates (р, Ө, ф) where p is the distance from P to the origin, Ө is the angle 
formed by the positive x-axis and the line connecting the origin with the projection of P in the x-y plane, 
and @is the angle formed by the positive z-axis and the line connecting P with the origin. The Mathematica 
command Spheri cal Pl ot 3D allowsthe construction of surfaces given in spherical coordinates. 


Special Note: W hen dealing with spherical coordinates, Mathematica's convention is to interchange 
the roles of Gand @ from that which is used in many standard calculus textbooks. The description of the 
command Spheri cal Pl ot 3D described in the following, although different from the description in 
Mathematica's documentation files, agrees with these conventions. 


= Spherical Pl ot3D[ p, ф, Ө] generates a complete plot of the surface whose spherical radius, р, 
is defined as a function of ф and ө. 

=» Spherical Plot3D[[p, t$, фті п, max», «0, Өтіп, Omax}] generates a plot of the 
surface whose spherical radius, p, is defined as a function of ф and Ө over the intervals фтіп < ф < фтах 
and Өтіп < Ө < Omax. 


EXAMPLE 10 In spherical coordinates, p = 1 represents the unit sphere. 
Spherical Plot3D[1, £6, 0, m), (0, 0, 211] 
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SOLVED PROBLEMS 


5.1 Plot the graph of the function е-7-У above the rectangle -2 < x < 2, -2« yx 2. 
SOLUTION 
Plot3D[Exp[-x? - y?], £x, -2, 2}, fy, -2, 21] 


уу? 
ә 


5.2 Show the intersection of the two paraboloids f(x, y) = x? + y and g(x, у) =16- x? – y? above the square 
-3<х<3,-3<у<3. 


SOLUTION 
Plot3D[ (X? * y?, 16 - x?- у2}, (x, - 3, 3}, fy, - 3, 3}, BoxRatios 1] 
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5.3 Obtain a graph of the "saddle-shaped" hyperboloid 2 = х? – у, -5 <х < 5, -5 <у< 5 іп асиріс box. 
Draw the graph with and without a surface mesh. 


SOLUTION (Graphs are placed side by side for comparison purposes.) 


Plot3D[x?- y?, £x, -5, 5}, fy, -5, 5}, BoxRatios 1] 
Plot3D[x?- y?, £x, -5, 53, £y, -5, 5}, BoxRati os 21, Mesh False] 


5.4 Draw the graph of the function f(x, y) = |sinxsin y| for -27 € x, y x 2л. Label the x and yaxes іп 
terms of m. 


SOLUTION 


Plot3D[Abs[Sin[x]Sin[yl], (x, -2m 2m}, (y, -2m 27}, 
Ticks >{{-27, -m, 0, л, 2m), t-27, - л, 0, m, 2m), (0, 111] 
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5.5 Draw the graph of the surface z = |L- x? – y’| for -1 < x, y< 1. Do not draw axes or a surrounding 
box. 


SOLUTION 
Plot3D[Abs[1- x?- y?], £x, - 1, 1}, fy, - 1, 1}, Axes False, Boxed Fal se] 


5.6 Graph the intersection of the paraboloid z= x? + y? with the plane у+ z 2 12. Obtain a front view 
and a side view. 


SOLUTION (Graphs are placed side by side for easier comparison.) 


paraboloid = Plot3D[x? * y?, £x, -5, 5}, fy, -5, 53]; 
plane = Plot3D[12 - y, {x, -5, 5}, ty, -5, 53]; 


Show[paraboloid, plane, BoxRatios 1, PlotRange — (0, 20}, 
PlotLabel — "Default View"] 


Show[ paraboloid, plane, BoxRatios 1, PlotRange — (0, 20}, ViewPoint Front, 
PlotLabel "Front View"] 


Show[paraboloid, plane, BoxRatios 1, PlotRange — (0, 20), ViewPoint Left, 
PlotLabel — "Left View"] 


Default V iew 
Left View 
NC 


Front V iew 
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x = COSat 
5.7 Sketch the space curves defined by 7 у= sinbt 0<:<2л for 

z -Sinct 
(i) a=5,b=3,c=1; (ii) a=3,b=3,c=1; (M) a=2,b=5,c=2. 
These curves are known as Lissajous curves. 
SOLUTION 
ParametricPlot3D[{Cos[5t], Sin[3t], Sin[t]}, tt, 0, 27}] 
ParametricPlot3D[ tCos[3t], Sin[3t], Sin[t]}, tt, 0, 27}] 
ParametricPlot3D[ tCos[2t], Sin[5t], Sin[2t]}, tt, 0, 21] 


x=(4+Sins) cost 
5.8 Sketch the torus defined by 4 y=(4+sins)sin¢ 0<5,:<2л 
z=COSs 


SOLUTION 

x[t_] =(4+Sin[s])Cos[t]; 

y[t_] =(4+Sin[s])Sin[t]; 

z[t ] =Cos[s]; 

gl=ParametricPlot3D[{x[t], y[t], z[t]}, 15, 0, 2m}, tt, 0, 2m), Mesh False] 
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x = (4 sin 201)cos: 
5.9 (Continuation.) Sketch the space curve 4 y=(4+sin20r)sint O<r<2z 
z = Cos 20r 


This curve is called a toroidal spiral since it lies on the surface of a torus (let s = 202). 
SOLUTION 

x[t ] =(4+Sin[20t])Cos[t]; 

y[t 1] =(4+Sin[20t]) Sin[t]; 

z[t_] =Cos[20t]; 

g2=ParametricPlot3D[{x[t], y[t], z[t]}, £t, 0, 27}] 
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5.10 (Continuation.) Sketch the torus and the toroidal spiral on the same set of axes. 
SOLUTION 
Show[ g1, g2] 


5.11 Sketch the graph of a "ribbon" one unit wide having the shape of a sine curve from 0 to 47. 


SOLUTION 
x=t 

We can represent this surface parametrically: 4 у= s 0<5<1,0<1< 4л. 
z=sint 


ParametricPlot3D[{t, s, Sin[t]}, {s, 0, 1}, {t, 0, 4m), Axes False] 
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5.12 Draw the "ice cream cone" formed by the cone z= 3x? + y? and the upper half of the sphere 
x? +Y +(«—9)? =9, Use cylindrical coordinates. 


SOLUTION 
In cylindrical coordinates the cone has the equation z = 3r and the hemisphere has the equation 2=9+ J9— 72. 


сопе = RevolutionPlot3D[3r, {r, 0, 3}, BoxRatios 1]; 
hemisphere = Revol utionPlot3D[ 9+ J9 - r?], cr, 0, 3}]; 
Show[cone, hemisphere, PlotRange —AII, BoxRatios >{1,1,2}] 


5.13 Sketch the graph of the following surface given in spherical coordinates: 
p -l-sin480sin 9, 0<0<2л, 0<ф<л 


SOLUTION 
Spherical Plot3D[1+Sin[46]Sin[o], £9, 0, x), 19, 0, 2x3] 
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5.2 Other Graphics Commands 
A level curve of a function of two variables, f(x, y), is a two-dimensional graph of the equation 
f(x, У) = k for some fixed value of k. A contour plot is a collection of level curves drawn on the same 
set of axes. 

The Mathematica command Cont our Pl ої draws contour plots of functions of two variables. The 
contours join points on the surface having the same height. The default is to have contours corresponding 
to a sequence of equally spaced values of the function. 


m ContourPlot[f[x, y], «x, хті п, xmax}, ty, ymin, ymax}] draws a contour plot of 
f(x, y) in a rectangle determined by xmin, xmax, ymin, and ymax. 


Contour plots produced by Mathematica are drawn shaded, in such a way that regions with higher values 
of f(x, y) are drawn lighter. As with all Mathematica graphics commands, options allow you to control the 
appearance of the graph. 


• Contours — n allows you to determine the number of contours to be drawn. The default is ten 
equally spaced curves. 

• Contours S (k1, k2,...) draws contours corresponding to function values k1, k2,... 

e ContourShadi ng Fal se turns off shading. This option is particularly useful if your monitor 
or printer does not handle grayscales well. 

e ContourLi nes False eliminates the lines that separate the shaded contours. 

• Pl ot Poi nts —n controls how many points will be used in each direction in an adaptive algorithm 
to plot each curve. The default is 15. (The default for two-dimensional graphics is 25.) 


A complete list of options and their default values can be obtained using the command 
Options[ContourPl ot]. 


EXAMPLE 11 Obtain contour plots of the paraboloid z = x? + у. Note that the level curves are all circles 
x? + y? =k. (Plots are placed side by side for easy comparison.) 


ContourPlot[x? * y?, £x, - 10, 10}, fy, -10, 103] 
ContourPlot[x? * y?, (x, - 10, 10}, fy, -10, 10), ContourLi nes False] 
ContourPlot[x? * y?, £x, -10, 10}, fy, -10, 10}, ContourShadi ng False] 


-10 A А i Я d 

-10 -5 0 5 10 

A density plot shows the values of a function at a regular array of points. Lighter regions have higher 
values. 


m DensityPlot[f[x, y], «x, xmin, xmax}, «y, ymin, ymax}] draws a density plot of 
f(x, y) in a rectangle determined by xmin, xmax, ymin, and ymax. 
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The option Mesh draws a rectangular mesh that subdivides the region. 


Mesh — None (default) draws no mesh. 

Mesh — n draws n equally spaced mesh divisions. 

Mesh — Automatic draws automatically chosen mesh divisions. 
Mesh АІ І draws mesh divisions between all elements. 

Mesh — Full draws mesh divisions through regular data points. 


EXAMPLE 12 
DensityPlot[x? * y?, £x, -10, 10}, fy, -10, 103] 
DensityPlot[x?*y?, {х, -10, 10}, £y, - 10, 10}, Mesh Automatic] 


The commands Li st ContourPlot andListDensityPlot aretheanalogs of Cont our Pl ot 
and Densi t yPl ot for lists of numbers. These commands are appropriate for use with functions defined 
on a lattice of integer coordinates. 


m ListContourPlot[array] generates a contour plot from a two-dimensional array of 


numbers. 

m ListDensityPlot[array] generates a density plot from a two-dimensional array of 
numbers. 

array= ((zu, zu, ...), (24, 22,...1. ... } representing the heights of points in the x-y 


plane, must be a nested array of dimension 2 x 2 or larger. 2; ; is the z-coordinate of the point (j,i). The 
options for Li st ContourPlot and ListDensityPlot are the same as for Contour Pl ot and 
DensityPl ot, except that the axes are labeled, by default, with positive integers starting with 1. The 
option Dat aRange allows you to change the labeling of the axes to correspond to the actual values of 
the data. 


• DataRange — { {хті n, xmax), {ymi n, ymax}} labels the x and y axes from xmin to xmax 
and from ymin to ymax, respectively. 
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EXAMPLE 13 
list =Table[Random[], 4x, 1, 10}, ty, 1, 101]; «— Generates a 10 x10 array 
ListContourPlot[list, DataRange >{{-5, 5}, {3, 731] Оеп пире: 


ListDensityPlot[list, DataRange >{{-5, 5}, (3, 711] 


| 
| / 
22y = 


0 
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ContourPl ot 3D is the three-dimensional counterpart of Cont our Pl ot. ContourPl ot 3D will 
sketch the level surfaces of f, i.e., the set of points (x, y, z) such that f(x, y, z) =k. 


= ContourPl ot 3D[f[x, y, 2], &x, xmi п, xmax?, ty, ymin, ymax}, 12, zmi n, zmax}] 
draws a three-dimensional contour plot of the level surface f(x, y, z) 2 0 in a box determined by 
xmin, xmax, ymin, ymax, zmin, and zmax. 


The most commonly used options for Cont our Pl ot 3D are 


e Contours — (k1, k2,...) draws level surfaces corresponding to k1, k2,... 
• PlotPoi nts — (nx, ny} determines the initial number of evaluation points that will be used in 
the x and y directions, respectively. РІ ot Poi nts — п isequivalentto Pl ot Points — (n, п}. 


EXAMPLE 14 


ContourPlot3D[z - x?- y?, tx, -5, 5}, £y, -5, 5}, {z, 0, 10}, Contours t0, 5}, Mesh — None] 
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ListPlot3D isthethree-dimensional analog of Li st Plot. 


m ListPlot3D[ 2.3, 27,,,...}, {Zz 2,,...},... }] generates а three-dimensional 
surface based upon a given array of heights, 2; (must be a nested array of dimension at least 2 x 2). 
The x- and y-coordinate values for each data point are taken to be consecutive integers beginning 
with 1. 

m ListPlot3D[ €OG, yo 241), {Xz yo 2,},... }] generates a three-dimensional surface based 
upon a given array of heights, 2; which are the z-coordinates corresponding to the points {x,, у; ). 


Some options for Li st Pl ot 3D include: 


e MeshShading — shades generates a surface shaded according to the descriptions in the array 
shades (Gr ayLevel , Hue, RGBCol or , etc.). If arrayhas dimensions m x n, then shades must 
have dimensions (m-1)x (n-1). 

• DataRange— ((xmi n, xmax), {ymi п, утах)) labels the x- and y-axes from xmin to xmax 
and from ymin to ymax, respectively. The default is DataRange —Automati c, which assigns 
values starting with 1. 


Mes h is an option that specifies how mesh divisions should be drawn. The defaultis Mesh —Aut omati c. 


e Mesh — n specifies that n equally spaced mesh divisions (lines) should be drawn in each direction. 
e Mesh AI I specifies that mesh divisions should be drawn between all elements. 
• Mesh — None eliminates all mesh divisions from being drawn. 


EXAMPLE 15 (Graphs are grouped together for easy comparison.) 


list ={{1, 5, 2, 2}, (3, 6, 1, 4), (3, 1, 7, 2}}; 
ListPlot3D[list] 

ListPlot3D[list, Mesh — None] 

shades = { { Кей, Orange, Green}, (Cyan, Yellow, Magenta}}; 
ListPlot3D[list, MeshShadi ng shades] 


MY 
МЫ 
SOY 
Se 
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The discrete analog of Contour Pl ot 3D isListContourPl ot 3D. 


m ListContourPl ot3D[ array] draws a contour plot of the values in array, a three-dimensional 
array of numbers representing the values of a function. 

e Contours — n is an option that draws contours at n equally spaced levels. The default is 
Contours 3. Contours — (k1, k2,. . .) draws contours corresponding to function 
values k1, k2,... 

• DataRange— ((xmin, xmax), {ymin, ymax}, (zmi n, zmax}} labels the x, y, and 
z axes from xmin to xmax, ymin to ymax, and zmin to zmax, respectively. The default is 
Dat aRange —Automati c, which assigns values starting with 1. 


EXAMPLE 16 This example generates a discrete set of values of the function f(x, y, z) = х2+ y? + z? and draws 
two contour plots of f(x, y, z) =k fork = .5 and k = 1.5. The surfaces generated are spheres, but the larger sphere 
is drawn in a box that is too small to contain it completely. The result is that the inner sphere is partially visible 
in the picture. 


list zTable[x?*y? *z?, (x, -1, 1, , 25}, fy, - 1, 1, . 25}, {2, -1, 1, .25)]; 


ListContourPlot3D[list, DataRange —t(- 1, 1}, {- 1, 1}, {- 1, 13), 
Contours >{.5, 1, 5 }] 


SOLVED PROBLEMS 


5.14 Obtain a contour plot of f(x, y) = sin x + sin y on the square - 4x < x, y € 4x and compare it to the 
three-dimensional graph of the function. 


SOLUTION (Graphs are placed side by side for easy comparison.) 


Plot3D[Sin[x] +Sinly], £x, - 4m, 4m}, fy, - Am, 4л}] 
ContourPlot[Sin[x] «біліуі, £x, - 4m, 4л}, fy, - 4m, 4m] 
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5.15 


5.16 


à NP AP 
Ж; 


Compare a contour plot and а density plot for the function f(x, y) = sin xy over the rectangle -л < x, 
у< т. 


SOLUTION (Graphs аге placed side by side for easy comparison.) 


ContourPlot[Sin[x y], (x, - m л}, £y, - m m] 
DensityPlot[Sin[x y], £x, -m T}, ty, - m T}] 


Obtain a contour plot and a density plot of the discrete functionQuot i ent [x, y] asxand y range 
from 1 to 10. 

SOLUTION (Graphs are placed side by side for easy comparison.) 

list = Table[Quotient[x, у], (x, 1, 10}, ty, 1, 103]; 

ListContourPlot[list] 

ListDensityPlot[list] 
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5.17 Let f(x, y, z) = 5x? + 2у + 22. Draw the level surfaces f(x, у, z) = for k = 1, 4, 9, 16, and 25. Sketch 
the surfaces only for y 2 0 so that all the surfaces will be visible. 


SOLUTION 


ContourPlot3D[5x?*2y? &z?, (x, - 5, 5}, fy, 0, 5}, (2, -5, 5}, 
Contours — (1, 4, 9, 16, 251] 


5.18 Generate a 5 x 5 array of random integers between 1 and 10 and construct a three-dimensional list 
plot of these values. 


SOLUTION 
list = Table[Random[Integer, £0, 103], £x, 1, 5}, £y, 1, 53]; 
ListPlot3D[list] 
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5.19 Draw hyperbolic cylinders x? - у = k, k = 0, 2, and 5, by computing f(x, у, z) =x? - у at integer 
values between -5 and 5 for each variable and using Li st Contour PI ot 3D. 


SOLUTION 
We use integer values of x, y, and z to construct our list. 
list = Table[x?- y?, £z, -5, 5}, fy, -5, 5}, (x, -5, 53]; 


ListContourPlot3D[list, Contours — (0, 2, 5}, 
DataRange >{{-5, 5}, {-5, 5}, {-5, 511] 
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5.3 Special Three-Dimensional Plots 
The command Bar Chart 3D is the three-dimensional analog of BarChart. 


Note: Starting with version 7, Bar Chart 3D can be found in the Mathematica kernel. If you are using 
version 6, you will find Bar Chart 3D іп the packageBar Charts' which must be loaded prior to use. 
See the Documentation Center for appropriate usage. 


m BarChart3D[ datalist] draws a simple bar graph. datalist is a set of numbers enclosed within 
braces. 

=» BarChart3D[ {datalistl, datalist2, . . . }] draws a bar graph containing data from multiple data 
sets. Each data list is a set of numbers enclosed within braces. 


If a customized look is desired, there are a variety of options that can be invoked. The format of the 
command with options becomes 


в BarChart3D[ datalist, options] 
в BarChart3D[ {datalistl, datalist2, . . . », options] 


Some of the more popular options are: 


e Chartstyl e — g specifies that style option g should be used to draw the bars. Examples of style 
options areGrayLevel , Ние, Opacity, RGBCol or, and Colors (Red, ВІ ue, etc.). 

e Chartstyle — tgl, g2,... specifies that style options g7, g2, . . . should be used 
cyclically. 

e ChartLayout — "layout" specifies that a layout of type layout should be used to draw the graph. 
Examples of layouts are "Stacked", which causes the bars to be stacked on top of each other rather 
than placed side by side, and "Percentile", which generates a stacked bar chart with the total 
height of each bar constant at 10096. 


BarSpacing controls the spacing between bars and between groups of bars. The default is 
BarSpacing — Automati c which allows Mathematica to control the spacing. 


e BarSpaci ng — sallowsa space of s between bars within each data set. The value of s is measured 
as a fraction of the width of each bar. 

. BarSpacing ts, t allows a space of s between bars within each data set and a value of т 
determines the space between data sets. T he values of s ant t are measured as a fraction of the width 
of each bar. 


In each of the preceding Bar Spaci ng commands, the values of s and г may be replaced by one of 
the predefined symbols None, Ti ny, Small , Medi ит, orLarge. 


e BarOri gi n — edge controls where the bars originate from. The default value of edge is Bot t o m. 
Other acceptable values areTop, Lef t, and Ri ght. 

e ChartLabel s — tlabell, label2, . . . } specifies the labeling for each bar corresponding to each 
value in the data list. 


EXAMPLE 17 
array z {{1, 2, 3, 4}, (5, 6, 7, 8}, £9, 10, 11, 123}; 
glzBarChart3D[array, ViewPoint — (0, -2, 23]; 


g2-BarChart3D[array, BarSpacing  (.5, 2}, ViewPoint — (0, -2, 2}, 
ChartLabels —t"a", "b", "с", "а"}]; 


9 = бгарһі сѕАггау[ {91, 923 


CHAPTER 5 Three-Dimensional Graphics 


ListPoi nt Pl ot 3D isthethree-dimensional analog of Li st PI ot , which plots discrete points in a 
two-dimensional plane. 


m ListPointPlot3D[list] plots the points in dist in a three-dimensional box. dist must be a list of 
sublists, each of which contains three numbers, representing the coordinates of points to be plotted. 


By default, Li st Poi nt Pl ot3D usesBoxRati os —t1, 1, . 4} and accepts thePlotStyle 
option discussed in Chapter 4. 

In the next example, we generate 50 random points and plot them in three-dimensional space. 
EXAMPLE 18 


list -Table[Randoml nteger[ £(1,101], {50}, {3}] «This generates a list of 50 three-element 
lists of random integers. 


ListPoi ntPlot3D[list, BoxRatios 1] 
ListPoi ntPlot3D[list, PlotStyle—PointSize[.02], BoxRatios 1] 


ListSurfacePl ot 3D creates a mesh of polygons constructed from the vertices specified in a list. 


m ListSurfacePl ot 3D[ list] creates a three-dimensional polygonal mesh from the vertices speci- 
fied in dist, which should be of the form 


D xus Yu: Euh x5 Уі; gj ý ed Lu Ya: End { ж, Yaar odes dx IE * г) 
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EXAMPLE 19 Thefollowing generates а list of 169 vertices on the hyperboloid z = х? — У and connects them using 
ListSurfacePl ot 3D. Note that the list must be flattened before it can be input into the command. (Compare 
with Problem 5.3.) 


list = Table[ £x, y, x? - у2}, £x, -3, 3,.5}, (y, -3, 3,. 53]; 
ListSurfacePlot3D[Flatten[list, 1], Axes True, BoxRatios S (1, 1, 11] 


A surface of revolution is a surface obtained by rotating a curve about a given line. Although 
Revol uti onPl ot 3D, discussed in Section 5.1, сап draw surfaces rotated about the z-axis, the com- 
mand Sur f aceOf Revol uti on offers more flexibility. This command was available in previous ver- 
sions of Mathematica and is now available either in the "legacy" package Graphi сѕ oron the Web at 
library.wolfram.com/infocenter/MathSource/6824. If downloaded, the package SurfaceOfRevolution.m 
should be placed in the folder 


C:\Program Files\Wolfram Research\Mathematica\x.x\AddOns\LegacyPackages\Graphics 


Note: A warning will be displayed when this package is loaded. It may be safely ignored. To eliminate 
this message, execute the following prior to loading the package: 


Of f[ General ::obspkg]; 
There are various forms of the command with several options. 


m SurfaceOfRevolution[f[x], «x, xmi n, xmax}] generates the surface of revolution obtained 
by rotating the curve z = f(x) about the z-axis. 

m SurfaceOfRevolution[f[x], «x, xmin, xmax}, (0, Өтіп, 0max?] generates the sur- 
face of revolution obtained by rotating the curve z = f(x) about the z-axis, for Өтіп < 0 < Omax. 

= SurfaceOfRevolution[{x[t], z[t]}, «t, tmin, tmax}] generates the surface of rev- 
olution obtained by rotating the curve defined parametrically by x = x(t), z= z(t), about the z-axis. 


The following example rotates the curve z = x? about the z-axis, completely and partially. 


EXAMPLE 20 
«Graphics 
SurfaceOf Revoluti on[x?, £x, 0, 33]; 
SurfaceOf Revol uti on[ x?, £x, 0, 3}, £0, 0, 3n/ 23]; 
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Theoption Revol uti onAxi s allows rotation about axes other than the z-axis. 


e Revol uti onAxi s — (Xx, z} rotates the curve about an axis formed by connecting the origin to 


the point (x, z) in the x-z plane. 
e Revol uti onAxi s — X, у, 2} rotates the curve about an axis formed by connecting the origin 


to the point (x, y, z) in space. 
EXAMPLE 21 


«Graphics 
SurfaceOfRevolution[x?, £x, 0, 3}, RevolutionAxis >{1, 0}, 
BoxRatios >{1, 1, 1}, AxesLabel >{"x", "у", "z"}] 


SurfaceOf Revol uti on[ X?, £x, 0, 3}, RevolutionAxis >({1, 1, 1}, 
BoxRatios >{1, 1, 1}, AxesLabel >{"x", "у", "z"}] 


The curve z = x? is rotated about the line connecting The curve z = л? is rotated about the line connecting 
the points (0, 0, 0) and (1, 0, 0). the points (0, 0, 0) and (1, 1, 1). 
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SOLVED PROBLEMS 


5.20 Construct a 3 dimensional bar chart depiction of Pascal’s triangle for n = 7. 


SOLUTION 
Pascal's triangle is a representation of the binomial coefficients c(n,k) = utr 
k 
0 1 2 3 4 5 6 7 
0| 1 
1| 1 1 
n 2 1 2 1 
3| 1 3 3 1 
4| 1 4 6 4 1 
5| 1 5 10 10 5 1 
6| 1 6 15 20 15 6 1 
7| 1 7 21 35 35 21 7 1 
! 
ena Kk 15 gr gr 


list =Table[c[n, КІ, £n, 0, 73, tk, 0, ni]; 


g-BarChart3D[list, BarSpacing (.5, 21] 


5.21 Construct a scatter plot of the points on the helix x=sin2z, y=cos2r, с = t for t between 0 and 10 in 
increments of .25. 


SOLUTION 
list = Table[ tSi n[2t], Cos[2t], t}, tt, 0, 10, . 251]; 


ListPointPlot3D[list, PlotStyle Poi ntSize[.03], 
BoxRatios >{.25, .25, 1}, Axes False] 
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5.22 Construct the surface of revolution obtained by rotating the curve z = sinx, 0 € x € 2m, about (i) the 
z-axis and (ii) the x-axis. 


SOLUTION 


«Graphi cs' 
SurfaceOf Revol ution[Sin[x], £x, 0, 27}, Ticks False, 
AxesLabel "x", "y", "2"}] 


SurfaceOfRevolution[Sin[x], £x, 0, 27}, Revol uti onAxis (1, 0}, Ticks False, 
AxesLabel "x", "y", "2"}] 


5.23 Sketch the surface obtained by rotating the curve z = x?, 0 € x € 1, about the line z = x. 


SOLUTION 


«Graphi cs' 


SurfaceOf Revol uti on[ x?, £x, 0, 1}, Revol uti onAxis — (1, 1}, 
AxesLabel =>{ "x", "у", "z"}, Ticks Fal se] 
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5.4 Standard Shapes—3D Graphics Primitives 


в Graphics3D[ primitives] or Graphi cs3D[ primitives, options] creates a three-dimensional 


graphics object. 


The standard primitives are 


Cuboi d[ tx, y, 2}] isathree-dimensional graphics primitive that represents a unit cuboid (cube) 
with a corner at (x, y, z), with edges parallel to the axes. 

Cuboi d[ {Xi Yı Zi, O5 yo 25:3] represents a cuboid (parallelepiped) whose opposite 
corners are (x,, Yı, 2.) and (x,, Yz, Zo). 

Li ne[ (x4, Yur 2405, {Xz yo 2,},...] draws a sequence of line segments connecting the 
points (xi, уі, zi), (Xo, Ys, 2.),... 

Poi nt[ «x, у, 23] plots a single point at coordinates (x, у, z). 

Pol ygon[ {Xi yu 2,2, OG, Yor 2,},...] drawsafilled polygon with coordinates (x,, y,, zi), 
(х,, Үҙ, Za)... 

Text[expression, (x, y, 201 creates a graphics primitive representing the text expression, cen- 
tered at position (x, y, z). 


EXAMPLE 22 


Graphics3D[ < СиБоі d[ £0, 0, 03], Cuboi d[ €1, 1, 1}, {2, 3, 43]? , Axes True, 


Ticks 2 ££0, 1, 2}, £0, 1, 2, 3}, (0, 1, 2, 3, 411] 
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EXAMPLE 23 


vertices ((0, 0, 0}, (2, 2, 0}, (0, 2, 1}, 0, 0, 23}; 
Graphi cs3D[Pol ygon[vertices], Axes —True, Ticks >{{0, 1, 2}, 10, 1, 2}, «0, 1, 233] 


e Sphere[ «x, y, 2}, r] defines a sphere of radius с centered at (x, y, z}. 

e Cylinder[ ((Х1, yl, 21}, {x2, y2, 22}}, r] defines a cylinder of radius x around the 
line from (x1, yl, 21) to (x2, y2, 22). 

* Сопе[{{х1, y1, 21}, (x2, y2, z211, r] defines a cone with base radius x centered at 
(xl, yl, zi) andatipat (x2, y2, 22). 


Additional three-dimensional graphics commands allow for convenient drawing of other stan- 
dard shapes. Only Cylinder, Cone and Sphere are available in the Mathematica kernel. 
DoubleHelix, Helix, OutlinePolygons, PerforatePolygons, RotateShape, 
ShrinkPol ygons, Torus, Transl ateShape, and Wi reFrame were available in previous ver- 
sions of Mathematica and are now available either in the "legacy" package Gr aphi cs' oronthe Web at 
library.wolfram.com/infocenter/MathSource/6793. If downloaded, the package Shapes.m should be 
placed in the folder 


C:\Program Files\Wolfram Research\Mathematica\x.x\AddOns\LegacyPackages\Graphics 


Note: A warning will be displayed when this package is loaded. It may be safely ignored. To eliminate 
this message, execute the following prior to loading the package: 


Of f[ General ::obspkgl; 
Torus and Moebi usStri р arealso available in the kernel function Exampl eData. 


Cyl i nder[r, h, n] draws a cylinder with radius x and half height n using n polygons. 
Sphere[r, n, m] draws a sphere of radius x using n (m — 2) + 2 polygons. 

Cone[r, h, n] drawsacone with radius x and half height n using n polygons. 

Torus[r 1, r2, n, m] draws a torus with radii x1 and r2 using an n x m mesh. 

Moebi usStri p[r1, r2, n] drawsaM oebius strip with radii x1 and r2 using 2n polygons. 
Helix[r, h, m, n] draws a helix with radius к, half height h, and m turns using an 
n xm mesh. 

e DoubleHelix[r, h, m, n] draws a double helix with radius r, half height n, and m turns using 
an n x m mesh. 
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If the parameters are omitted, e.g., Cone[ ], Mathematica's defaults are used. Тһе default values are 


Cylinder[1, 1, 20] 
Sphere[1, 20, 15] 
Cone[1, 1, 20] 

Torus[1, .5, 20, 10] 
Moebi usStrip[1, .5, 20] 
Helix[1,.5, 2, 20] 
DoubleHelix[1, .5, 2, 20] 


EXAMPLE 24 


«Graphics: 
Graphics3D[Cylinder[]] 
Graphics3D[Sphere[]] 
Graphics3D[Cone[]] 
Graphics3D[Torus[]] 
Graphics3D[Moebi usStrip[]] 
Graphics3D[Helix[]] 
Graphics3D[DoubleHeli x[]] 


m WireFrame[ object] shows all polygons used in the construction of object as transparent. It may 
be used оп any Graphi с$ 30 object that contains the primitives Pol ygon, Li пе, andPoi nt. 

m Opacity[a] specifies the degree of transparency of a graphics object. The value of a must be 
between 0 and 1, with 0 representing perfect transparency and 1 representing complete opaqueness. 


The Opacity directive should be placed within the Gr aphi cs3D directive as shown in the follow- 
ing example. 
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EXAMPLE 25 


«Graphics: 

object = Тогиѕ[ ]; 
Graphics3D[object] 

Graphics3D[ tOpacity[.3], obj ect}] 
Wi reFrame[obj ect] 


There are three commands in Graphics’ that provide transformations in space: 


в" RotateShape[object, ф, Ө, y] rotates object using the Euler angles! ф, Ө, and y. 

m TranslateShape[object, tx, y, z1] translates object by the vector { х, y, z}]. 

= AffineShape[object, {xscale, yscale, zscale}] scales the x-, y-, and z-coordinates by xscale, 
yscale, and zscale, respectively. 


EXAMPLE 26 


«Graphi cs" 

object =Graphics3D[Cone[]] 
RotateShape[object, 0, л/2, 0] 
RotateShape[object, 0, m/ 2, 7/ 2] 


lEuler angles are a way of describing transformations in R? by performing three rotations in a specified sequence. First we make а 
rotation ф about the z-axis. Then we perform a rotation Ө about the new y-axis. Finally, we perform a rotation лу about the (new) z-axis 
obtained from this rotation. 
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Ѕһом[ object, TranslateShape[object, {1, 2, 3}]] 
shrunkenobj ect =AffineShape[object, {.5, . 5, .5}]; 
Show[object, TranslateShape[shrunkenobject, {1, 2, 3}]] 


SOLVED PROBLEMS 


5.24 Draw two cylinders intersecting at right angles. 
SOLUTION 
«Graphi cs' 
cyll=Graphics3D[Cylinder[1, 5, 20]]; 
cyl2 =Graphics3D[RotateShape[Cylinder[1, 5, 20], 0, л/2, 011; 
Show[cyl 1, cyl 2] 
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5.25 Construct a cylinder inscribed іп a sphere of radius 1. 


SOLUTION 1 


Since the sphere has radius 1, we use the default parameters. In order for the cylinder to be inscribed in 
the sphere, r (radius) and A (half-height) must satisfy r? +h? 21. We choose r 21/2 апал = 43/2. In 
order for the cylinder to be visible, we draw the sphere as a wire frame. 

<Graphics’ 

sphere =WireFrame[Graphics3D[{Opacity[0.5], Sphere [ «0, 0, 0}, 1] 31]; 


cylinder Graphi cs3D [Cyl i nder 1 0, I2 ho, 0, №) JJ 


Show[sphere, cylinder, Boxed False] 


Y 


PY 
2 


SZ 


22 


«Г 


<=> 


Хы 
— 


rp; 


Zx 


A 


XTX 


< 2» 


<> 


=” 


>< 


LA 


“SS 


eas 


ч 


SOLUTION 2 


Using the graphics Directive Opaci t y, we can make the sphere semitransparent so the cylinder is visible 
through the sphere. 


sphere = Graphics3D[ tOpacity[0.5], Sphere[ ]}]; 
cylinder Graphi cs3D cylinder 1 0, 22i fo, 0, 2). || 


Show[ sphere, cylinder, Boxed >False] 


ка 
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5.26 Draw two interlocking tori of default dimension (ғі- 1, ғ = 0.5). 
SOLUTION 
The second torus must be rotated 90? and translated one unit so that they interlock without intersecting. 


«Graphi cs' 
torusl=Graphics3D[Torus[]]; 


torus2=Graphics3D[ Transl ateShape[RotateShape[Torus[], 0, n/2, m 2], 
{0,.5,0}]], 


Show[torusl, torus2, ViewPoint >{1.75, -2.8, 0.75}, Boxed False] 


5.27 Construct an animation showing a helix revolving about the z-axis. 


SOLUTION 


We use a default helix, hel i x[ ] . The helix makes one complete revolution as the Euler angle, 6, varies 
from 0 to 2 x. 


«Graphi cs' 
Апі mate[Graphics3D[RotateShape[Helix[], o, 0, 0], Boxed False], t6, 0, 27) ] 


» []—— — — —— ae 


CHAPTER 6 


Equations 


6.1 Solving Algebraic Equations 

Solutions of general algebraic equations may be found using the Sol ve command. The command is easy 
to use, but one must be careful to use a double equal sign, --, between the left- and right-hand sides of the 
equation. (Recall that the double equal sign is a logical equality: 1hs -- rhs has a value of True if and 
only if Lhs and rhs have the same value, False otherwise.) 


в Sol ve[ equations, variables attempts to solve equations for variables. 
The roots determined by Sol ve are expressed as of a list of the form 
{ {X> X}, {X> X}, ...} 


The notation x — x, indicates that the solution, x, is x,, but x is not replaced by this value. If the equation 
has roots of multiplicity m > 1, each is repeated m times. If only one variable is present, variables may be 
omitted. 

EXAMPLE 1 (|n this example, there is only one variable so the specification of variables is unnecessary. 


Solve[7x +3 --3 х + 8] 


[хә] 


If we solve the equation ax = b for x, Sol ve tells us that x = b/a. However, if a = b = 0, then every 
number x is a solution. The command Reduce can be used to describe all possible solutions. 


=» Reduce[ equations variables simplifies equations, attempting to solve for variables. If equations 
is an identity, Reduce returns the value True. If equations is a contradiction, the value False is 
returned. 


In describing the solutions, Reduce uses the symbols && (logical and) and | | (logical or). && takes 
precedence over | |. 


EXAMPLE 2 


Sol ve[a x zb, x] 


{{x 2} 


Reduce[a x =b, x] 


(b = 0&&a = 0) || (axo sax = È] < Eithera = =0 or a +0 and x = b/a. 
Reduce[x?- 9 -= (х +3) (x - 3), x] 


True 
Reduce[x?- 10 == (х *3)(x - 3), x] 


False 
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If we try to solve an equation that contains two or more variables, we must specify which variable we 
are solving for. 


EXAMPLE 3 Note the space between a and y and between c and x. 
This is important. « may be used instead. 


Solve[ay +b =c x +d] 

Solve :: svars : Equations may not give solutions for all "solve" variables. >> 
{{b~ d+cx-ay}} 

We must specify which variable we wish to solve for: 


Solve[ay +b -cx +d, x] 


[== 


Solve[ay +0 zcx td, y] 


[ren] 


Solve[ay *b -cx +d, b] 

{{рәа+сх-ау}} 

Solve[ay +b -cx +d, d] 

((dob-cx-«ay)) 

For systems of equations, equations is a list of the form (equation, equation2, . . .) and variables 


represents either a single variable or a list of several. Alternatively, equations may be represented by the 
individual equations separated by && (logical and). 


| , 2x+3y=7 
EXAMPLE 4 Неге is an easy example that shows how to solve a simple system: 3 Ga 10 


Solve[{2x+3y =7, 3x +4y =10}, (tx, y)] or Solve[2x + 3y =7 &&3x+4y =10, (x, y}] 
((xo2,y1]) 


In this example, the specification of (x, у} is not necessary because we do not have more variables 
than equations. If you have more unknown variables than equations, you must specify which variables you 
wish to solve for. Otherwise you get M athematica's default. 


EXAMPLE 5 


Solve[(x £2y +2 2:5, 2X +у +32 ==7}, {y, z)] 


[fy ‚8—к, z> z iex] 


Of course, Sol ve isnotlimited to solving only linear equations. 


EXAMPLE 6 
Solvel[ax?*bx *c «0, x] 
| КЕЗЕГІ; — {x zb vb? -4ac | 
2а ! 2а 


Observe that M athematica gives the general solution in terms of arbitrary а, b, and с unless values аге 
assigned to these variables. 
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EXAMPLE 7 
Solve[x? * y? 5 && x * y =3] 
liy 22, x21), {у 54-45, x -1« 5), [y + 4+5, x 5-1- 45} 


Because M athematica returns the solutions of equations as a nested list, they cannot be used directly 
as input to other mathematical structures. H owever, we can access their values without unnecessary typing 
or pasting by using / . 

If we wish to compute the value of an expression using the solutions obtained from Sol ve, wecan use 
the/ . replacement operator and M athematica will substitute the appropriate values. 


2 = 
Er А Б and compute the values of the expression 4/х? + y? . 


Weuse the Sol ve command and the object solutions for convenience. 


EXAMPLE 8 Suppose we wish to solve the equations 


solutions = $01 ме[ (X? + y == 5,х +y == 3}, tx, y] 
{ {у Э 1,х-0 2}, {уә 4, хә -1}} 


AX? *y? |. sol uti ons < Mathematica produces a list containing 
both values of the expression. 
[vs, А7! d 


EXAMPLE 9 Suppose we wish to find the sum of the squares of the roots of 
xê - 21x3 +175х* — 7358 +1,624x? - 1,764х + 720 20 
We usethe Sol ve command: 


solutions =Solve[{x®- 21x? + 175x*- 735x? + 1624 x? - 1764x +720 =0] 
{{x 1}, {x72}, (x53), {x74}, {x75}, {хә 6}} 


Now we can define a list containing the solutions listed above. 


list zx/. solutions 
11;2,3544,5;906] 


Now we can easily compute the sum of the squares of the elements of the list. 
Total[list?] 
91 


Sol ve isdesigned to solve algebraic equations, but can sometimes be used to find limited solutions of 
transcendental equations. A warning message is given to indicate that not all solutions can be found. 


EXAMPLE 10 
Sol ve[Si n[x] 21/2, x] 


Solve :: ifun : Inverse functions are being used by Solve, so some solutions may not be found; 
use Reduce for complete solution information. >> 


{{x3]] 


To get a more general solution to this equation, use Reduce . 
Reduce[Si n[x] --1/2, x] 
C[1]e Integers && 


5x 


! Х- or plus any integer multiple of 27 : 


oja 


(x-Z«2zenillx- 32 e22cn1) Э 


If the equations to be solved are inconsistent, М athematica returns an empty list. 
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EXAMPLE 11 


Solve[{2x+3y == 5, 4x *6y =11}] 
{} 


If the roots of an equation involve complex numbers, they are represented as rational powers of -1. 
However, if a more traditional expression is desired, the function Compl exExpand can be used. 


EXAMPLE 12 
Sol ve[x? == 1] 
((x 21), (x -(-1)!2) , (x 2 (-1)23у) 


Sol ve[x? -= 1] // Compl exExpand 
RENE > 2 ZEE > г. 


А system of equations need not have a unique solution. F or example, a system of two equations in three 
unknowns will either be inconsistent or have an infinite number of solutions. In the latter case itis possible 
to eliminate one or more variables from the system. 


= Eli mi nate[ equations, variables eliminates variables from a set of simultaneous equations. 


equations is a list of simultaneous equations, and variables may be a single variable or a list of two or 
more. 


EXAMPLE 13 (а) Eliminate the variable z; (b) eliminate the variables y and z from the following equations: 
w+ X+ y+ 2-3 
2w +2x+5y+ z=6 


3w + 6x + 2y + 22 = 1 


(а) Eliminate[{iw+Xx+y +2 =3, 2w+2x+5y+z=6,3w+6x+2y+3z =1}, 2] 
w=3-X-4y&&3x= -8 + у 


(b) Elimi паќе[ {м+х +у +2 =3, 2w+2x+5y+z=6,3w+6x+2y+3z =1}, {y, 2)] 
=29- 13x =w 


Not all algebraic equations are solvable by Mathematica, even if theoretical solutions exist. If 
Mathematica is unable to solve an equation, it will represent the solution in a symbolic form. For the most 
part, such solutions are useless and a numerical approximation is more appropriate. N umerical approxi ma- 
tions are obtained with the command NSol ve. 


= NSolve[ equations variables solves equations numerically for variables. 
= NSol ve[ equations variables n] solves equations numerically for variables to n digits of 
precision. 


As with Sol ve, the list of variables may be omitted if there is no ambiguity. 


EXAMPLE 14 Solvethe equation х5 + x^ + х + x^ - x 2 = 0. 
SOLUTION 
Solve[x?^ + х tx * x? -&x * 2 == 0] 
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{ {х o Root [2 + #1 + #12 + £1? + 41* + #1°&, 1]) 
(x Root [2 + #1 + #1° + #1° + H1* + #1°&, 2] }, 
(x Root [2 + #1 + #1° + #1° + H1* + #1°&, 3]), 

[ 1} 
[ 1} 


" 


(x Root [2 + #1 + #12 + H1? + H1* + H1^&, 4 


(x Root [2 + #1 + #12 + 81? + #14 + #1°&, 5] }} 
Mathematica cannot solve this equation exactly, so it returns a symbolic solution. However, we can obtain a 
numerical approximation. 


NSolve[x5+x*+x34+x274+x +2 =0] 


{{х 9 -1.21486}, (x -0.522092-1.061181}, {x -0.522092 +1.06118i}, 
{х ә 0.629523 – 0.8835851}, {х 0.629523 + 0.8835851} } 


Ап extraneous solution is a number that is technically not a solution of the equation, but evolves from 
the solution process. W hen solving radical equations, one typically encounters extraneous solutions. For 
example, when solving vx = 3, which has no real solution, the squaring process yields x = 9. 


e VerifySolutions isan option that determines whether M athematica should verify if solutions 
obtained are extraneous. The default, Veri f ySol uti ons — True, eliminates extraneous 
solutions from the solution list. If such solutions are desired, the option Veri f ySol uti ons > 
Fal se should be used. 


EXAMPLE 15 
Sol ve[x * Vx =5] 


IE = iQ = xax) 
Solve [x * Vx 2:5, VerifySolutions False] 


IE ВЕ (11 = 421) : E > 5 (11+ ya) 5 (11. V21) isextraneous. 


SOLVED PROBLEMS 


61 Find an equation of the line passing through (2, 5) and (7, 9). 
SOLUTION 
The general equation of a lineis y 2 ax +b. Substituting the coordinates of the given points leads to the 
equations 2a + b = 5 and 7a +b = 9. 


Solve[2a *b -5 &6 7а +b -- 9] 


IEEE 
17. 


The line has equation у= se 


62 Find an equation of the circle passing through (1, 4), (2, 7), and (4, 11). 
SOLUTION 


The general equation of a circle is x? + y? + ax + by + c = 0. We substitute the coordinates of the given points 
into the equation to obtain 17+a+4b+c=0,53+2a+7b+c=0, and 137+4a+11b+c=0. 
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501 ме[ {17 *a*4b*c-0,5342a*7b4c-0,137 + Да + 11b +с =0}] 
{ {а Э -54, ьә96, c> 13}} 


The equation of the circle is x? + y? - 54x + 6y + 13 = 0. 


6.3 Solve the equation xt- 16х° + 61x? - 22x - 12 = 0, exactly and numerically. 
SOLUTION 
equation zx*- 16x *61x?/- 22x - 12 «0; 
Solve[equati оп] 
Цхәз- 5}, Ix o 34 5}, [ix 5 5-2]. [x 5 52 7}} 
NSol ve[equati on] 
((х->-0.291503), (x ә 0.763932}, (x 5.23607), (x 10.2915) } 


64 Solve the following system for w, x, and y and then determine the solution when z= 1, z= 2, and z= 3. 
W+ Xt yt 2-3 
2W +3x+4y+5z=10 
м-Х- y-z=4 


SOLUTION 
equations = (W*X*4y 423, 2 м+ 3х + Ду + 52 --10, м- хХ+у- 2 =4}; 
solution =Solve[equations, {w, x, y] 


Ды dis +42) х > 5 2),У (2 2 


solution. 2 —1 


9 3 5 
{{w ar ae eee A zi 


solution/.z 2 


13 5 1 
{{w а re ү > a} 


solution/.z 3 


17 7 3 
[fu >, x> z: Y> 3l 


65 Find, to 20 significant digits, a real number such that the sum of itself, its square, and its cube is 30. 
SOLUTION 
NSol ve[x * x? * x? z 30, x, 20] 
((x-1.8557621138713175532- 2.76044105934138500031), 
(x -1.8557621138713175532 + 2.76044105934138500031), 
(x 2.7115242277426351064} } 


The only real solution is x = 2.7115242277426351064. 


66 Solve the trigonometric equation 2 sin?x + 1 = 3 sinx for sin x and then for x. 
SOLUTION 
To solve for sin x, we can write 


Solve[2 Sin[x]?+1 =3 Si n[x]] 
{{sin [Ix] > i ,[Sin[x] > uy} 
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If we solve for x, only the principal solutions (using inverse functions) are obtained. 
Solve[2Sin[x]?*1 =3 Sin[x], x] 


Solve:: ifun : Inverse functions are being used by Solve, so some solutions may not be found; 
use Reduce for complete solution information. >> 


-aea 


Using Reduce we can get all the solutions. 
Reduce[2 Si n[x]? +1 2:3 Si n[x], x] 


5x 


C[1]e Integers && 
x SAIS or = plus 


(x -5+ 2nC [1] | |х = 2 +2лС[1] | Ix 22. лс) any integer multiple of 27 


6.7 Solve for x: e” + ех = 3. 
SOLUTION 
Solve[Exp[2x] + Exp[x] =3, x] 


Solve :: ifun : Inverse functions are being used by Solve, so some solutions may not be found; 
use Reduce for complete solution information. >> 


(6 — Log 5 (-1 + v3) } ‚ [х > іл + Log E (-1 - үз) 


Reduce[Exp[2x] * Exp[x] =3, x] 


C[1]e Integers && 


x - ia -2izC[ile Log 3 (1+ 13) |= 24 e C121 + Log] 3 (-1 + /3)| 


68 Sketch the graphs of f(x) = х3- 7x? + 2x + 20 and g(x) = X? on the same set of axes and find their 
points of intersection exactly and approximately. 


SOLUTION 
f[x ] 2- 7x? 22x * 20; 
g[x.] 2x5 


Plot[ f [x], g[ x13, 4x, - 10, 10}, PlotRange —^. (-100, 1005] 


CHAPTER 6 Equations 


xvalues =Solve[f[x] == [х], x]; 
x, f[x]}/. xvalues //Expand 
{02,4}, [3- /19, 28 - 6 19] , {3+ 19, 28 +6 J19]] 


AlI N 
{{2.,4.}, {-1.3589, 1.84661}, (7.3589, 54:1534}} 


6.9 A theorem from algebra says that if p(x)=a,x"+a, х"! +a, ,х"2 +... + ах-а,, the sum of the 


roots of the equation р(х) = 0 is — н and their product is (—1)^ 2. . Verify this for the equation 


20x? + 32x5 - 2206 - 118x* + 725x? -18x? – 726x + 252 = 0 


SOLUTION 
solution = 501 ме [20х' + 32х6- 221x5- 118х* + 725x?- 18x? - 726x +252 --0] 


-- {x 2} {x 3h {x mm e 8) 3] 


listz x/. solution 


EERTE 


7 
Š list[[k]] or Sum[list[[k]], tk, 1, 7}] or Total[list] 
k=1 


8 ' i 
= 1 2 
5 i a 0 5 


II istttkn or Product[list[[k]], £k, 1, 71] 
kz1 


i a і 
1 : n Со 7252 63 1! 
63 Д п-7 (-1) ат (-1 = 
5 ! ! 


6.10 Find all possible solutions, x, for the equation ax + b = cx + d. 
SOLUTION 
Solve[ax+b=cx+d, x] 


This solution presumes a = c. A more general solution is obtained using Reduce. 
Reduce[ax +b =cx td, x] 


Dad 
а-с 


(b==d &&a--c) | | (a - C0 && х == 

6.11 Eliminatethe variable x from the nonlinear system 
xX? +y?+z=1 
х+у+7=3 
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SOLUTION 
Eliminate[{x?+y?+z =1, X ty tz =3}, x] 
(26- 18у + 3у?) 2-(-9-3у) z? + Z? = 26 - 27y + 10у? - у? 


6.2 Solving Transcendental Equations 
A transcendental equation is one that is non-algebraic. Although Sol ve and NSol ve can be used in a 
limited way to handle simple trigonometric or exponential equations, it was not designed to handle equa- 
tions involving more complicated transcendental functions. The Mathematica command Fi ndRoot is 
better equipped to handle these. 

Fi ndRoot uses iterative methods to find solutions. A starting value, sometimes called the initial guess, 
must be specified. For best results, the initial guess should be as close to the desired root as possible. 


m FindRoot[Ihs =--rhs, «x, x01] solves the equation 1hs = rhs using Newton’s method with 
starting value хо. 

m FindRoot[Ihs == гһ5, «x, «x0, x13] solves the equation 1hs = rhs using (a variation of) 
the secant method! with starting values xo and x1. 

m FindRoot[Ihs --rhs, «x, x0, xmi п, xmax}] attempts to solve the equation, but stops if 
the iteration goes outside the interval [xmin, xmax]. 


If a function is specified in place of the equation 1hs == rhs, Fi ndRoot will compute a zero of the 
function. A zero of f is a number x such that f(x) = 0. 


EXAMPLE 16 The equation sin x = x? - 1 has two solutions. 
Plot[£Sin[x], x?- 1}, (x, - m, 13] 


The graph of the two functions shows that they intersect near x = - 1 and x= 1. 


FindRoot[Sin[x] -x?- 1, tx, -1}] 
(x -0.636733} 


FindRoot[Sin[x] zx?- 1, tx, 11] 


(x 1.40962} 


1N ewton’s method uses the x-intercept of the tangent line to improve the accuracy of the initial guess. Thus, N ewton's method fails if 
the derivative of the function cannot be computed. The secant method, although a bit slower, uses the values of the function at two distinct 
points, computing the x-intercept of the secant line. 
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By default, 100 iterations are performed before Fi ndRoot is aborted. The number of iterations per- 
formed before quitting is controlled by the option MaxI terations. 


e Maxlterations — n instructs Mathematica to use a maximum of n iterations in the iterative 
process before aborting. 


EXAMPLE 17 The equation e*- 2e* + 1 = 0 has x = 0 as its only root. However, because its multiplicity is 2, 
Newton's method converges very slowly. 


FindRoot[Exp[2x] - 2 Exp[x] +1 «0, tx, 1005] 


FindRoot:: cvmit : Failed to converge to the requested accuracy or precision within 100 iterations. >> 
(x 50.) 

FindRoot[Exp[2x] - 2 Exp[x] *1 20, £x, 100}, Maxlterations 300] 

{х — 4.54676 x 107?) 


Fi ndRoot attempts to find real solutions. However, if a complex initial value is specified, or if the 
equation contains complex numbers, complex solutions will be sought. The equation in the next example 
has no real solutions. 


EXAMPLE 18 
FindRoot[x?*x *1 == 0, tx, 21] 


FindRoot :: Istol: 

The line search decreased the step size to within tolerance specified by AccuracyGoal and PrecisionGoal 
but was unable to find a sufficient decrease in the merit function. You may need more than 
MachinePrecision digits of working precision to meet these tolerances. >> 


(x -0.500002) 
FindRoot[x?+x * 120, tx, 13] 
(x—-0.540.866025 i} 
FindRoot[x?+x +1 == 0, (x, -I}] 
(x -0.5 – 0.8660251} 


There are three options that control the calculation іп Fi ndRoot and other numerical algorithms. 


e Worki ngPreci si on is an option that specifies how many digits of precision should be main- 
tained internally in computation. The defaultis Worki ngPrecision —16. 

e AccuracyGoal isan option that specifies how many significant digits of accuracy are to be obtained. 
ThedefaultisAccuracyGoal —> Aut omat i c,whichishalf thevalueof Worki ngPrecision. 
AccuracyGoal effectively specifies the absolute error allowed in a numerical procedure. 

e PrecisionGoal isan option that specifies how many effective digits of precision should be sought 
in the final result. The default isPrecisionGoal — Automatic, which is half the value of 
WorkingPrecision.PrecisionGoal effectively specifies the relative error allowed in a numeri- 
cal procedure. 


EXAMPLE 19 We wish to obtain a 10-decimal place approximation to the solution of the equation cos 


100) - X 
nearest to 5,000. 


X Х+1' 


Fi ndRoot ЕЯ = х (x, 2000) | 
X x 1*1 


{x 5000.83] 
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M athematica’s defaults are insufficient to give the required accuracy. By increasing Wor ki ngPrecision,we 
can obtain the desired result. 


Fi ndRoot [ces 200. == T {x, 5000}, Worki ngPrecision n 


{x > 5000.83319115955609589817) 


SinceAccuracyGoal is, by default, half the valueof Wor ki ngPreci si on, only the first 14 significant digits 
can be trusted. Thus, x = 5000.8331911595 (accurate to ten decimal places). 


= Evaluati onMoni tor can be used to show intermediate calculations to be performed and dis- 
played. The format isEval uati onMoni tor :» expression 


The symbol :> can be found on the Basic Math Input palette or can be created by typing :>. This sym- 
bol is used instead of — to avoid expression being immediately evaluated. This technique is illustrated 
in the next two examples. 


EXAMPLE 20 То see how quickly the sequence of approximations converges when we solve the equation e™ = x, 
ме сап useEval uati onMoni tor to print the results of intermediate calculations. 


п=- 1; 


FindRoot[Exp[-x] zx, {х, 2}, Evaluati опМопі tor :9 (n**, Ргі пі [ п," "V x] ¥] 


.357609 
.558708 
.56713 
.567143 
.567143 
х 0.567143] 


ооо о ом 


0 
1 
2 
3 
4 
5 
{ 


EXAMPLE 21 То obtain a comparison between Newton's method and the secant method, we can ask 
Eval uati onMoni tor to print the number of iterations needed to converge to 100 significant digits. 


Newton's M ethod 

1-0: 

FindRoot[Exp[-x] =x, tx, 1}, WorkingPrecision ->100, 
AccuracyGoal —100, Eval uati onMonitor :n44] 

Print[n," iterations'] 


{х > 0.5671432904097838729999686622103555497538157871865125081351310792230 
457930866845666932194469617522946 } 


8 iterations 


Secant M ethod 

п =0; 

FindRoot[Exp[-x] zx, (x, 1, 2}, WorkingPrecision +100, 
AccuracyGoal ->100, EvaluationMoni tor :»n44] 

Print[n," iterations'] 


{x > 0.5671432904097838729999686622103555497538157871865125081351310792230 
457930866845666932194469617522946) 


24 iterations 
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If the equation to be solved has a root of multiplicity 2 or greater, Newton's method may converge 
slowly or not at all. In this situation, convergence can sometimes be improved by a judicious choice of 
Dampi ngFactor. 


e Dampi ngFactor — factor is an option that controls the behavior of convergence in N ewton's 
method. The size of each step taken in N ewton's method is multiplied by the value of factor. The 
defaultis Dampi ngFactor 1. 

EXAMPLE 22 

n = 0; 

FindRoot[(Exp[x] - 1)’, {x, 2}, Evaluati onMoni tor :n++] 

Print[n," iterations" ] 

{х > 6.95942 x 10°} 

32 iterations 

n=0; 


FindRoot[(Exp[x] - 1)?, {x, 2}, Dampi ngFactor —2, EvaluationMonitor :n++] 
Print[n," iterations" ] 


{х ә 6.6703 x 1077) 


8 iterations 
Fi ndRoot can also be used to determine the solution of simultaneous equations. 


= FindRoot[ equations ( магі, al}, tvar2 a2},...] attempts to solve equations using 
initial values al, a2, . . . for varl, var2,. . . , respectively. The equations are enclosed in а list: 
tequation1, equation? , . . . }. Alternatively, the equations may be separated by && (logical and). 


Convergence of N ewton's method for functions of several variables is much more sensitive to choice of 
starting values than its counterpart for single variables. Therefore, a good graph of the functions involved 
is quite helpful. 

менн { : e+Iny=2 
EXAMPLE 23 Solve the system of equations sinx + cosy =1 
First we graph the equations. 


ContourPlot[ {Exp[x] + Log[y] --2, Sin[x] + Cos[y] =-1}, £x, 0, 2}, fy, 0, 3}, 
Frame False, Axes True] 


3.0 | 
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It appears that there is only one solution. We use x= 1, y = 1 for our initial guess. 
FindRoot[ £Exp[x] + 109[у] «2, Sin[x] *Cos[y] z13, £x, 1}, fy, 1}] 
{x 0.624295, y 1.14233] 


If thefunction in an equation is such that its evaluation is costly, particularly if high precision is desired, 
there is another procedure that may be beneficial. 


m InterpolateRoot[Ihs == гһѕ, (x, a, b}] solves the equation 1hs = rhs using initial 
values а and b. 


WhereasFi ndRoot uses linear functions (straight lines) to approximate the root of the equation, 
I nterpolateRoot uses polynomials of degree 3 or less. The result is that higher precision can 
be achieved with fewer function evaluations. | nt er pol at eRoot is contained within the package 
FunctionApproxi mations’ and must be loaded prior to use. 

As with Fi ndRoot , the equation may be replaced by a function, in which case its zero is computed. 


EXAMPLE 24 This example computes the zero (between 2 and 3) of the B essel function? J (x), using a working 
precision of 1000 significant digits. For comparison purposes, the M athematica function Ti mi ng is used. The actual 
numerical approximation is suppressed to save space. A s a result, the value Nu11 is returned. Delete the semicolon 
and run the command to see the actual result of the calculation. 


FindRoot[BesselJ[0, x], £x, 2}, WorkingPrecision 1000]; //Ti mi ng 

(0.219, Null) 

<<FunctionApproxi mations’ 

I nterpolateRoot[BesselJ[0, x], £x, 2, 3}, WorkingPrecision 51000]; // Timing 


(0.046, Null) 


SOLVED PROBLEMS 


6.12 Solvethe equation 5cosx = 4— x?. Маке sure you find all solutions. 
SOLUTION 


Since 5cosx = 4— x? if and only if 5cosx —4 4 x? 20 , weintroducethefunction f(x) = 5cosx—44- x? and 
look for x-intercepts. (Although we could look for the intersection of two curves, it is easier to approxi- 
mate where points intercept an axis.) 


f[x ] 25Cos[x] - 4 * x55 
Plot[f[x], £x, -1, 21] 


2- 


2) a(x) is a solution of the differential equation x^y" + ху'+ ху =0. 
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It appears that there are three solutions, near - 0.5, 0.8, and 1.6. 


FindRoot[f[x], £x, -0.5}] 
(x -0.576574) 
FindRoot[f[x], £x, 0. 8] 
(x 0.797323) 
FindRoot[f[x], £x, 1.63] 
(x 1.61805) 


6.13 Find a solution of the equation sinx = 2. (This problem may be omitted by those unfamiliar with 
functions of a complex variable.) 


SOLUTION 


Since - 1 < sinx < 1 for all real x, this problem has no real solutions. We can force Fi ndRoot to search 
for a complex solution by using a complex initial guess. 


Fi ndRoot[Sin[x] -= 2, tx, 11] 
(x 1.570841.31696 i) 


6.14 Find a 20 significant digit approximation to the equation x + | sin (x — 1) | 2 5. 
SOLUTION 


First we plot the function f(x) 2 x + | sin (x - 1) | - 5. 
f[x ] =x + Abs[Sin[x - 1]] - 5; 
Plot[f[x], tx, -10, 101] 


It appears that the only solution lies between 4 and 5. 

FindRoot[f[x], €x, 5}, AccuracyGoal —20, Worki ngPrecision —25] 

{x 24.577640011987577295259374) 

To 20 significant digits, the solution is 4.5776400119875772953 (last digit rounded up). 


6.15 Find the points of intersection of the parabola y = X? + x - 10 with the circle х?+ y? = 25. 
SOLUTION 
First, plot the two graphs. 


91 =Graphics[Circle[{0, 0}, 5], Axes True]; 
92 zPlot[x?^*x- 10, £x, -5, 51]; 
Show[ g1, 92, AspectRatio — Automatic, PlotRange >{-10, 101] 
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The parabola y = x? + x + 1 intersects the circle x? + y? = 25 at four points. N ow solve for the intersection points. 
B ecause of the complicated structure of the exact solution, we obtain a numerical approximation. 


NSol ve[y =x?+x- 10 && x? * y? z:25] 
{{y > -4.63752, х — 1.86907}, (y 2.83654, x —D-4.11753], 
(y -4., x-3.), (y 3.80098, x —^ 3.24846] } 
6.16 Find the points of intersection of the limacon r = 5 – 4cos8 and the parabola y = х2. 
SOLUTION 


First we plot both curves on the same set of axes. 

li macon = PolarPlot[5- 4Cos[t], tt, 0, 2x1]; 
parabola zPlot[x?, £x, -3, 31]; 
Show[limacon, parabola, PlotRange >All] 
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We convert the equation of the limacon to rectangular coordinates: 


г = 5— 4С050 
r2- 5r — 4r cosa ге ух? жу? 


х? + y! = 5,/х2+ y? - Ax Х = ГС050 


The first intersection point appears to be near (2, 2): 
FindRoot [{y =x’, x? + y?z5 Jetty? - 4x}, {xX, 2}, ty, 21] 
{х ә 1.53711, у 2.3627} 
The second point lies near (- 3, 6): 
FindRoot [(y =x’, x? * y? == 5 NIENTE 4x}, (X, -3), ty, 61] 
{х ә -2.4552, y ә 6.02802} 
6.17 Where does the Spiral of Archimedes, r = Ө, intersect the ellipse 4x? + 9у? = 400? 


SOLUTION 
spiral zPolarPlot[6, (0, 0, 621]; 


ellipsezContourPlot[4x? + 9у2 400, (x, -10, 10}, fy, -20, 20), 
ContourStyle —Dashi ng[. 0211; 
Show[spiral, ellipse] 


The graph shows three points of intersection that appear to be near (4, 6), (- 8, 4), and (-9, - 2). To convert 
the polar equation to rectangular, we use the transformations r = Jx? +y? and Ө = tan-!(y / х). However, 
Newton's method is more stable if we write this as tan( x? + y?) 2 y/ x. 


Fi ndRoot[ (Tan[ x? + y?] =y/x, 4x? + 9y?- 400), (x, 4}, ty, 6)] 
FindRoot[{Tan[ jx? + y?] == y/ x, 4x? +9y?==400}, (x, - 8}, іу, 4}] 
Fi ndRoot[(Tan[ x? + y?] = y/ x, 4x? + 9y? z 400), (x, - 9), (y, -2)] 
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{х ә 3.93476, y 6.1289} 
(x -8.04703, y 3.95785] 
(x -9.38786, у  -2.29668) 
6.18 Find a solution of the system of equations 
х+у+7=6 


Sinx + cosy + tanz = 1 
Xx - 
e* + peo 


near the point (1, 2, 3). 
SOLUTION 


FindRoot[{x + y +2 ==6, Sin[x] + Cos[y] + Tan[z] «1, 
Exp[x] + Sqrt[y] + 1/2 ==5}, tx, 1}, ty, 2}, {2, 3}] 
{x3 1.23382, у->1.5696, 2->3.19658) 


Algebra and Trigonometry 


7.1 Polynomials 
Because they are so prevalent in algebra, Mathematica offers commands that are devoted exclusively to 
polynomials. 


= Pol ynomi al Q[ expression, variable] yields True if expression is a polynomial in variable, and 
False otherwise. 

Variabl es[ polynomial] gives a list of all independent variables in polynomial. 
Coefficient[polynomial, form] gives the coefficient of form in polynomial. 
Coefficient[ polynomial, form, n] gives the coefficient of form to the nth power in polynomial. 
CoefficientList[polynomial, variable] gives a list of the coefficients of powers of variable 
in polynomial, starting with the Oth power. 


EXAMPLE 1 


Polynomial Q[ x? + 3x +2, x] 

True 

Polynomial QL x? + 3x + 2/ x, x] 

False 

Pol ynomi al Q[x?+3x + 2/ y, x] < 2/ y is treated as a constant with respect to x. 
True 

Polynomial QLx? + 3x + 2/у, у] 


False 


EXAMPLE 2 


polyl =(x *1)!5; 
poly2=x3- 5x?y +3xy?- 7у?; 
Variables[pol y2] 

{х,у} 

Coeffici ent[pol yl, х, 5] 

252 

Сое? fici ent[ pol y2, x] 

3y? 

Coef fici ent[pol y2, y, 2] 

3x 

Coef fici ent[pol y2, x y?] 

3 

CoefficientList[poly1, x] 
(1, 10, 45, 120, 210, 252, 210, 120, 45, 10,1) 
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CoefficientList[poly2, x] 
1-737, SY. -5y, 1} 
CoefficientList[poly2, y] 
G8, -5x?, 3x, -7} 


Often itis convenient to write the solution of a polynomial equation as a logical expression. For example, 
if x2- 420, then x 2 -2 or x = 2. Roots of polynomial equations can be expressed іп this form using two 
specialized commands, Root s and NRoot s. Thesolutions are given in disjunctive form separated by the 
symbol || (logical or). 


m Roots[Ihs --гһ5, variable] produces the solutions of a polynomial equation. 
= NRoots[Ihs --rhs, variable] produces numerical approximations of the solutions of a polyno- 
mial equation. 


EXAMPLE 3 Find all the solutions of x + x? - 8? - 5x + 15 = 0 that are greater than 2. 


solutions = Roots[x** x- 8x?- 5x +15 == 0, x] 

х == 4(-1 - V13) || x == $(-1+ V13) || x== J8|| x == -/5 

solutions && x>2//Simplify 86 is М athematica's logical and. 

x= 4/5 See Section 7.4 for a discussion of Si mplify. 
numericalsolutions =NRoots[x‘+x?- 8x?- 5x +15 «0, x] 


X = -2.30278 || х = -2.23607||x = 1.30278 || х = 2.23607 
numericalsolutions && x>2//Simplify 
X == 2.23607 


The division algorithm for polynomials guarantees that given two polynomials, p and s, for which 
degree(p) 2 degree(s), there exist uniquely determined polynomials, q and r, such that 


р(х) = а(х) s(x)+r(x), | where X deg(r) < deg(s) 


The Mathematica commands that produce the quotient and remainder are 


m Polynomial Quoti ent[p, s, x] gives the quotient upon division of p by s expressed as a 
function of x. Any remainder is ignored. 

m Polynomial Remai nder[p, s, x] returns the remainder when p is divided by s. The degree 
of the remainder is less than the degree of s. 


EXAMPLE 4 


pzx*-7x'«3x?- 5x +9; 
s=x?4+1; 

q = Pol ynomi al Quotient[p, s, x] 
10-х- 7х2 + х? 

г = Pol употі а! Remai nder[p, s, x] 
-1-4x 


= Expand[ poly] expands products and powers, writing poly as a sum of individual terms. 

= Factor[ poly] attempts to factor poly over the integers. If factoring is unsuccessful, poly is 
unchanged. 

m FactorTerms[ poly] factors out common constants that appear іп the terms of poly. 

m FactorTerms[ poly, var]factors out any common monomials containing variables other than var. 

= Collect[poly, var] takes a polynomial having two or more variables and expresses it as a poly- 
nomial in var. 
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EXAMPLE 5 
poly 26x?yz^  8x?y?z5 + 10 x?y'z5 
Factor[pol y] 
2х?у?2? (5у? + Зух + 4х22) < poly is factored completely. 
FactorTerms[pol y] 
2(5x?y*z? + 3x?y?z* + Ax?y?z?) < Only the constants are factored. 
FactorTerms[pol y, x] 
2y? z? (5 х?у? + Зх?ух + Ax? z?) < Only the common factors not involving x are factored. 
FactorTerms[pol y, y] 


2x?z?(5y*!e3y!zeAxy?z?) = Only the common factors not involving y are factored. 

FactorTerms[pol y, z] 

2x?y?(5y?z? + 3yz^ + Axz?) < Only the common factors not involving 2 are factored. 
EXAMPLE 6 


poly=1+2x+3y+4xy+5x?y +6xy?+7x?y?; 
Collect[poly, x] 


1+Зу+х(2+4у+б6бу?) +x? (5y* 7y?) < Powers of x are factored out. 
Collect[pol y, y] 
1+2х+(3+4х+5х?)у+(6х+7х?°)у? < Powers of y are factored out. 


EXAMPLE 7 Thefollowing Mani pul at e command expands (x + 1)" to any power between 1 and 10, controlled 
by radio buttons. 


Mani pul ate[Expand[(x + 1)"] // Traditional Form, { п, Range[ 10] }, 
Control Type — RadioButton] 


=] 
п О Ог 03040506 О; 9805010 | 


xê +0 x7 +20 х6 +56 x5 + 70 xê +56x°+20x?+8x+1 | 


By default, Fact or allowsfactorization only over the integers. T here are options that allow this default 
to be overridden. 


e Extension — { extensionl, extension2, . ..) can be used to specify a list of algebraic numbers 
that may be included as well. (The brackets, { ), are not needed if only one extension is used.) 

e Extension — Automatic extends the field to include any algebraic numbers that appear in the 
polynomial. 

e Gaussianl ntegers — True allows the factorization to take place over the set of integers with i 
adjoined. Alternatively, i or I may be included in the list of extensions. 


EXAMPLE 8 
Factor[x*- 41х* + 400] 


(-2 + x) (2+х) (-5 + x?) (4 + x?) (5 + x?) 

Factor[x®- 41х* + 400, баиѕѕі апі пїедегѕ True] 

(-2 + х) (-21 + х) (21+ х) (2+х) (-5 +x?) (5 + x°) 

Factor[x®- 41х* + 400, Extension 5] 

- (5 - х) (-2+ x) (2+x) (V5 +x) (4+х2) (54x?) 

Factor[x*- 41х* + 400, Extension 1, 453] 

-(/5-х)(У5- х)(У5- x) (-2+х) (-2 +x) (2 +x) (2+х) ({/5 +х) 
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The greatest common divisor (GCD) of polynomials, pı, Pa . . . is the polynomial of largest degree 
that сап be divided evenly (remainder = 0) into р;, Pa . . . . The least common multiple (LCM ) of polyno- 
mials р, Pa . . . is the polynomial of smallest degree that can be divided evenly by р, р, .... 

m Polynomial GCD[ pl, р2,... | computes the greatest common divisor of the polynomials 

pl, p2,... 

m Polynomial LCM[ p1, p2,...] computes the least common multiple of the polynomials 

pl, p2,... 
EXAMPLE 9 


p=(x-1)(x- 2)%(x- 3)5 

q=(x-1)%(x-2)(x- 3)5 

Polynomial GCD[ p, q] 

(-34x) (-2 +x) (-1 +x) 

Polynomial LCM[ p, 41 

(-3 +x)*(-2 + x)?(-1 +x)? 

By default, both Pol ynomi al GCD and Pol ynomi al LCM assume the coefficients of the polynomials 


to be rational numbers. As with Factor, theoptionExt ensi on can be used to specify a list of algebraic 
numbers (and/or т) that may be allowed. 


EXAMPLE 10 
p=x?- 5; 
а=х +5 
Pol ynomi al GCD[ p, 41 
1 
Polynomial GCD[p, q, Extension — Automatic] 
J5 «x 
Pol ynomi al LCM[ p, q] 
(V5 + x) (-5 + x?) 
Polynomial LCM[ p, q, Extension — Automatic] 


-54x? 


Although M athematica will automatically expand integer exponents of products and quotients, if the 
exponent is non-integer, the expression will be left unexpanded. To force the "distribution" of the expo- 
nent, the command Po wer Expand is available. 


=» PowerExpand[ expression] expands nested powers, powers of products and quotients, roots of 
products and quotients, and their logarithms. 


EXAMPLE 11 
(a b)? 
a? b? < Mathematica distributes the exponent because it is an integer. 
(a b)” 
(ab)* < Mathematica does nothing because the exponent is undefined. 


PowerExpand[(a b) *] 
a*b* < We force the expansion with Power Expand. 
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One must be very careful with Power Expand when multi-valued functions are involved. 


EXAMPLE 12 
Jab |І. {а >-1, b 5-1) 027 = (1-1 
1 
Power Expand[ fa b | I. {a >-1, b >-1} PowerExpand expands and then replaces 
the values of a and b by -1. 
-1 


Неге аге a few additional examples illustrating Power Expand : 


EXAMPLE 13 
(a)! /] PowerExpand 
аху 
(a/b)* /] PowerExpand 
a*b* 
Log[x y] // PowerExpand 
Log [x] + Log [y] 
Log[x/y] // PowerExpand 


Log [x] - Log [y] 
Log[x?] // PowerExpand 
y Log [x] 


SOLVED PROBLEMS 


7.1 Test to see if 1--х sin y+ X? cosy + x?e" isa polynomial in x. Isita polynomial in y? 
SOLUTION 


А 1 2 5 
Polynomial 0[1 +x 5і п[ у] + x?Cos[y] + х° ExpL yl, x] y istreated as aconstant 
True in this expression. 


Polynomial Q[1 +x Sin[y] +x?Cos[y] + x^ Ехр[у], y] 
False 


7.2 What are the coefficients of the polynomial expansion of (2х + 3)°? 
SOLUTION 
poly =(2x +3)°; 
CoefficientList[poly, x] 
(243, 810, 1080, 720, 240, 32) 


7.3 What is the coefficient of x y? 2 in the expansion of (x + y + z)9? 
SOLUTION 
роу = (х+у 42): 
Coefficient[ poly, xy?z?] 
60 
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7.4 Expand (x + a + 1)^ completely. 
SOLUTION 
Expand[(x +a * 1)*] 


1+ 4а + ба? + 4а? + а + 4х + 12ах + 12a?x + 4а?х + 6х? + 12ах? + 6a?x?+ 4х? + 4ах? + x? 


7.5 Express (x + а + 1)^ as a polynomial in x. 
SOLUTION 


Collect[(x *a + 1)*, x] 


1+4a+6a+4a+at+ (4412a412a^*4a8)) x+(64+12a+4 ба?) x2«(4 + Aa) х? + х* 


7.6 Factor the polynomial 
poly = 6x3+ x*y – 11ху? – 6y? – 5 х27 + 1lxyz+11y2z- 2x? – 6у2? +23 
and solve for z so that poly = 0. 


SOLUTION 

poly =6x?+x*y- 11xy?- 6y3-5x2z¢1lxyzt 11y?z - 2x z?- буг? +2°; 
Factor[pol y] 

(х+у- х2) (Зх+2у- х) (2x-3y-«z) 

SOLUTION using Sol ve 

Sol ve[pol y z:0, 2] 

{{z>x+y}, (2-3х-2у), {хә -2х+3у}} 


SOLUTION using Root s 


Roots[poly =0, 2] 
2-хзчу||2--3х-2у||2---2хж3у 


7.7 Find the quotient and remainder when x5 + 2x4 — 3x3 + 7x? — 10x + 5 is divided by x? - 4 and verify 
that the answer is correct. 


SOLUTION 
p=xi+2x4- 3x34 7x?- 10x * 5; 

5 =x?- 4: 

q = Pol ynomi al Quoti ent[p, s, x] 
15 + X + 2x? + x? 

г = Pol ynomial Remai nder[p, s, x] 
65-6x 

checkpoly q*s*r// Expand 
5-10x«7x?^-3x?^2x*5:2 
checkpol у = 


True 


7.8 Express (x + y + z? as a polynomial in 2. 
SOLUTION 
Collect[(x *y +2) ?, 2] 


х? + 3х?у + 3xy? + у? + (3х? + бху + Зу?) 2 + (Зх+ Зу) 22 + 2? 
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7.9 Let p = 2x! - 15? - 39x? - 40x + 12 and q = 4х* — 24x? + 45x? — 29x + 6. Compute their GCD and 


LCM and show that their product is equal to pq. 
SOLUTION 

pz2x'-15x?*39x?- 40x * 12; 

qz4x'- 249 + 45x? - 29x +6; 

а = Pol ynomi al GCD[ p, q] 
-6%17х-11х2-2х7 

b = Polynomial LCM[ p, q] 

(-2 +x) (6 - 29x + 45x? - 24x? + 4x?) 
Expand[a * b] - Expand[p * q] 


True 


7.10 Factor x^ - 25 over the integers and then over the field containing 4/5 and i. 


7.11 


7.2 


SOLUTION 
Factor[x‘- 25] 


(-5 +x?) (5 +x?) 


Factor[x*- 25, Extension >{5, 13] 
-(,/5-жх),/5-іх),/5 +1х)(4/5 + x) 


Ехрапа nf су | 


7° 


SOLUTION 


а b 
zi E І | Power Expand 


i (a Log [x] + b Log [y1- c Log [z1) 


Rational and Algebraic Functions 


There are a few commands appropriate for use with rational functions (fractions). 


Numerator[ fraction] returns the numerator of fraction. 

Denomi nator[ fraction] returns the denominator of fraction. 

Cancel [ fraction] cancels out common factors in the numerator and denominator of fraction. The 
option Extension — Automatic allows operations to be performed on algebraic numbers that 
appear in fraction. 

Together[ expression] combines the terms of expression using a common denominator. A ny 
common factors in numerator and denominator are cancelled. 

Apart[ fraction] writes fraction as a sum of partial fractions. 


EXAMPLE 14 


cancel | 


x?7+5x +6 
х2+3х +2 


34x 


l-x 


EXAMPLE 15 


1 2 
Together |; +1 Ear. T r] 


I 


-1 +x 
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EXAMPLE 16 
Х2%5Х 
Apart | Lx Х - г) 
1 2) ъв 


T 
-1+х 1+х 1-х-х 


Since M athematica, by default, converts factors with negative exponents to their positive exponent 
equivalents, the result of Numerator orDenomi nator may be different than expected. 


EXAMPLE 17 


; x jy? 
fraction "EE 


Numerator[fraction] 


z? 


Denomi nator[fraction] 
2 


xy 

=» ExpandNumerator[expression] expands the numerator of expression but leaves the denomina- 
tor alone. 

=» ExpandDenomi nator[ expression] expands the denominator of expression but leaves the 
numerator alone. 

=» ExpandAl | | expression] expands both numerator and denominator of expression, writing the 
result as a sum of fractions with a common denominator. 


EXAMPLE 18 
expression ИР, 
ExpandNumerator[expressi on] 


2-3х-х2 
(34 x) (44+ x) 


ExpandDenomi nator[expression] 
(1ых) (2-х) 


12+7x+x? 


ExpandAl I [expression] 


2 3x x? 


T 
12+7х+х? 12+7х+х? 12+7х+х? 


ExpandNumerator[ExpandDenomi паќ ог [ ехргеѕѕі оп] ] 


2+3 х + х2 
12+7х + х? 


The commands described in this section are not limited to rational functions (quotients of polynomials) 
but will work for both algebraic expressions involving radicals and non-algebraic expressions involv- 
ing functions or undefined objects. In addition, if the option Tri g — True is set within the command, 
Mathematica will use standard trigonometric identities to simplify the expression. This will be discussed 
further in Section 7.3. 


EXAMPLE 19 


Expand |(1 + VK) | 


1 + 6 VX +15x +20 x”? +15 х2 +6 x”? + х? 
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EXAMPLE 20 


1 
маг [co НЕТТІ 


10001 
1- Jx 2+ Vx 
7.12 The expression ыз ыг appears іп calculus in connection with the derivative. Simplify this 


expression for f(x) = к а=-3. 


SOLUTION 
f[x ]2x5 
а--3; 


шга 
Cancel | Yo 
6561 – 2187х + 729x?- 2433? + 81x*- 273? + 9x9$- 3x74 x? 


7.13 Express the sum of p P and T as a single fraction. 
SOLUTION 


Together[a/b*c/d *e/f] 


bde-«bcf-«adf 
bdf 


2)(х? 2x-7 
7.14 Write E EA 5x 25 with expanded numerator and denominator. 


SOLUTION 1 


ExpandNumerator |Expantenon nator l uu Dt à 25] 


-42- 9х - 8х? - 3х? +2х* 
-60 - 148x - 23х? + 6х? + х* 


SOLUTION 2 


(x 22) (x? *3) (2x - 7) 
expandal | | НА 23) 771 | | together 


-42-9x-8x?^-3x?-42x' 
-60-148х-23х2-6х? + хе 


2Х-3 7х-2 
7.15 Add 5x-7' 3xil' and "uem and express as a single fraction with expanded numerator and 
denominator. 
SOLUTION 
2x +3, 
Шыт 
.1x-2, 
45 3y 11! 
x? 


x! 41’ 
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Together[p +q + r] | | ExpandDenomi nator Without //ExpandDenomi nator, the 


17-48х%51х2-64х2 + 56x^ denominator would be expressed in factored 


-7-16x48x?-163)-415x* 


form. 


(x - Jj 


O67 -4] - 


7.16 What is the partial fraction expansion of 


SOLUTION 


(x-1) 
Араг у | 


" 729 ім 32 288 4 (4 4 x) 
425(-4 + x) 5(1+ х)? 25(1+х) 17(1-х2) 


4 


7.17 Find the partial fraction expansion of the function in the previous problem with linear complex 
denominators. 


SOLUTION 
Apart l (x - 1) | To force М athematica to express the result using linear complex 
(x +1) (х - 1) (x *1) x - 4) denominators, we factor x? + 1as (x +1 ) (x - I ). 
T NEN oi 248 32 288 
425 (-4+х) -i-X i-X 5(1-x? 25(1+х) 


7.18 Express (e* + е>)“ас a sum of exponentials. 
SOLUTION 
Expand[ ( E* + E?*)4] 


е +4 e?* + 6 еб 4 e?* + ех 


7.3 Trigonometric Functions 

Although the commands discussed in the previous section may be applied to trigonometric functions, doing 
So does not take advantage of the simplification offered by trigonometric identities. To incorporate these 
into the calculation, the option Tri g — True mustbeset. (ThedefaultisTri g —Fal se forall butthe 
Si mpl i f y command.) The following examples show the difference. 


EXAMPLE 21 
Si n[x] 
cancel [ЭКГ uH 
Sin[x] 
1- Cos [х] 
Si n[x] " 
Cancel КЕ - Cost х] Trig этге 
Csc [x] 
EXAMPLE 22 
Cos[x]? $i n[x]? | 
Together |; -Sinx * 1- Соѕ[ хр 


Cos [xf - Cos [xf + Sin [xf - Sin [x] 


(-1 + Cos [x}) (-1 + Sin [xF) 


СНАРТЕК7 Algebra and Trigonometry 


Cos[x]? Si n[x]? А | 
Together [т - Si a[xT + ЕТЕ Trig ->Тгие 


2 


Trig — True applies to hyperbolic as well as circular functions. 


EXAMPLE 23 


Expand[(Cosh[x]? + Si nh[x]?) ( Cosh[x]? - Si nh[x1?)] 

Cosh [x]! - Sinh[x]* 

Expand[(Cosh[x]? + Sinh[x]?) ( Cosh[x]? - Sinh[x]?), Trig True] 
Cosh [x]? + Sinh [x]? 


To allow additional manipulation of trigonometric expressions, M athematica offers the following spe- 
cialized commands, which apply to both circular and hyperbolic functions: 


=» TrigExpand[ expression] expands expression, splitting up sums and multiples that appear in 
arguments of trigonometric functions and expanding out products of trigonometric functions into 
sums and powers, taking advantage of trigonometric identities whenever possible. 

m Tri gReduce[ expression] rewrites products and powers of trig functions in expression as 
trigonometric expressions with combined arguments, reducing expression to a linear trig function 
(i.e., without powers or products). 


m Tri gFactor[ expression] converts expression into a factored expression of trigonometric func- 
tions of a single argument. 


The next example shows the difference between Expand and Tri gExpand. 


EXAMPLE 24 
Expand[(Sin[x] + Cos[x1)?] 
Cos [x]? + 2 Cos [x] Sin[x] + Sin [х]? 
Tri gExpand[(Si n[x] + Cos[x1)?] 
1 +2 Сов [х] Sin[x] 


ЕХАМРІЕ 25 


Tri gExpand[Si n[x * y1] 

Cos [у] Sin[x] + Cos [х] 51п[у] 

Tri gExpand[Si n[2 x]] 

2Cos [x] Sin[x] 

Tri gExpand[Si n[2x * y]] 

2Cos[x] Cos [у] Sin [х] + Cos [x]? Sin [у] - Sin[x]? Sin [y] 


Tri gExpand can also be applied to hyperbolic functions. 


EXAMPLE 26 


Tri gExpand[Cosh[x * y1] 
Cosh [х] Cosh [y] + Sinh[x] Sinh [у] 


EXAMPLE 27 Tri gReduce rewrites the original expression 
| А А as a linear trig expression. 
TrigReduce[Si n[ 2x]? * Sin[x] Cos[3x]?] DAE 


2(4 -4Cos[4x]-3Sin[2x]-3Sin[4x]- Sin[8x]* Sin[10x]) 
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TrigReduce[Si nh[ 2x]? + Sinh[x] Cosh[3x]?] 


i (-4 + 4 Cosh [4x] - 3 Sinh [2x] + 3Sinh[4x]- Sinh [8x] + Sinh[10x]) 


The next example shows the difference between Tri gFactor and Tri gReduce. Notice that 
TrigFactor writes the expression as a product, whileTri gReduce writes the expression as a sum 
of linear trig functions. 


EXAMPLE 28 


expression 224 Si n[x]? Cos[x]? + 16 Cos[x]^; 
TrigFactor[expression] 

-4 Cos [x]? (-5 + Cos [2x] ) 

Tri gReduce[expressi on] 

9+8Cos[2x] - Cos [4x] 


TheSol ve command can be used to solve trigonometric equations. However, because only principal 
values of inverse trigonometric functions are returned, not all solutions will be obtained. 


EXAMPLE 29 Consider the equation 1 - 2cosx - sinx + sin 2x = 0. 
equation z1-2Cos[x] - Sin[x] *Sin[2x] = 
Solve[equation, x] 


Solve::ifun: Inverse functions are being used by Solve, so some solutions may not be found; 
use Reduce for complete solution information. >> 


{{x+-3}.{x-> 8 e 8] 


Sincetrigonometric and hyperbolic functions can be represented in terms of exponential functions 
(complex exponentials in the case of circular trig functions), Mathematica offers two conversion 
functions: 


m TrigToExp[ expression] converts trigonometric and hyperbolic functions to exponential 
form. 


m ExpToTri g[ expression] converts exponential functions to trigonometric and/or hyperbolic 
functions. 


Tri gToExp and ExpToTri g may also be used to convert inverse trigonometric and hyperbolic 
functions. 


EXAMPLE 30 
Tri gToExp[Cos[x]] 


ес 4 ез“ 
2 2 

Tri gToExp[Si nh[x]] 
ех ех 


772272 


ExpToTrig[Exp[x]] 
Cosh[x] + Sinh[x] 
ExpToTrig[Exp[I x]] 


Cos [x] + i Sin[x] 
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SOLVED PROBLEMS 


ey 1 
7.19 Simplify the trigonometric function nee 


SOLUTION 


| 1 
Tri Менен cars si 2nd 


Sec[2x] 


7.20 Factor and simplify: sin? x cos? x + cost x. 
SOLUTION 
Tri gFactor[Sin[x]?Cos[x]? + Cos[ x]'] 
Cos [x]? 
7.21 Solve the trigonometric equation 1 - 2 cos x - 2 sin x + 4 sin 2x = 0. 
SOLUTION 


equationz1-2Cos[x]-2Sin[x] +4Sin[2x] = 
Solve[equation, x] 


Solve: :ifun: Inverse functions are being used by Solve, so some solutions may not be found; 
use Reduce for complete solution information. >> 


(Ееее еі 2 (209 Ai], [x> arccos 3a 52 Бө 4]. 


8 8 8 


[onde rS] e nde r8) 


A numerical solution would probably be more useful. 
%/ 1 N 
{{x— 1.40492}, (x 0.165873}, {x 2.83487), {x -1.26407]) 


7.22 Add and simplify: 


004 + tan x 
sin Х 


1+ 
SOLUTION 
Cos[x] , 
Together (ТЫМ + Tanta], Trig >True | 
1 * Sometimes you have to apply two or more trig | 
НЕН (ces[] sse [ 3] {commands to simplify completely, ||| 
Tri gReduce[ %] 
Sec [x] 
7.23 Combi damai sinh x cosh x 
" ombine and SIMPINY: coshx—sinhx 1 Coshx+sinhx 
SOLUTION 
Si nh[ x] Cosh[ x] А 
Together | cce = Sinh[x] * Cosh[x] + Si nh[xT "i? >True | 


Cosh [2x] 


CHAPTER 7 Algebra and Trigonometry 


7.24. Construct a table of multiple angle formulas for sin nx and cos nx, n = 2, 3, 4, and 5. 
SOLUTION 


trigtable =Table[{n, TrigExpand[Sin[nx]], TrigExpand[ Cos[nx]]}, 
(n, 2, 53]; 
TableForm[trigtable, TableHeadings — 
(None, {"n", " sinnx", " cos nx") )] 


sinnx cos nx 


5 


2 2Cos[x]Sin[x] Cos [x]? - Sin [x]? 


3 3Cos[x]? Sin[x] - Sin [x]? Cos [x]? - 3Cos [x] Sin[x]? 


[ 
[ 
[ 
[ 


Q 


4 4Cos [x]? Sin[x] - 4 Cos [x] Sin [x]? os [x]* - 6 Cos [x]? Sin [x]? + Sin[x]* 


5 5Cos[x]* Sin [x] - 10 Cos [x]? Sin [x]? + Sin[x]? Cos [x]? - 10 Cos [x]? Sin [x]? + 5 Cos [x] Sin[x]* 


7.25 Construct a table of linear trig formulas for sin" x and cos" x, n = 2, 3, 4, and 5. 


SOLUTION 
trigtable =Table[{n, TrigReduce[Si n[x]"], TrigReduce[Cos[x]"]}, 
(n, 2, 53]; 
TableForm[trigtable, TableHeadings — 
(None, {"n", " sin?x", " cos? x"}}] 
n sin? x Cos? x 
2 5(1- Соз [2х]) $(1+Cos [2х]) 
3 + GSinlx]-Sin[3x]) 2 (3 Cos [x] + Cos [3x] ) 
4 Z (3-4 Cos [2x] + Cos [4x] ) + (3 + 4Cos [2x] + Cos [4x] ) 
5 ig (10 Sin [x] - 5 Sin [3x] + Sin [5x] ) dg (10Cos [x] + 5 Cos [3x] + Cos [5x] 


7.26 Express e+” in terms of hyperbolic functions and expand. 

SOLUTION 

ExpToTrig[E**¥] 

Cosh[x +y] + Sinh[x +y] 

TrigExpand[%] 

Cosh [x] Cosh [у] + Cosh [у] Sinh[x] + Cosh [х] Sinh [у] + Sinh [x] Sinh [у] 
7.27 Express sinh-tx and tanh?x in logarithmic form. 

SOLUTION 

Tri gToExp[ArcSi nh[x]] 

Log [х + J1« x?] 


Tri gToExp[ ArcTanh[x]] 


5 Log[1 - x] + 5 Log[1 + x] 


7.28 Use Mani pul ate to control the graph of f(x) =a sin (Dx +c), O€ x «2m, with controls for a, b, 
and c varying between 1 and 10. M ove the sliders and observe the affect upon the graph. 
SOLUTION 


Manipulate[Plot[a Sin[bx +c], £x, 0, 27}, 
PlotRange 5 (-10, 103], (a, 1, 10}, {b, 1, 10}, (c, 1, 101] 
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7.4 The Art of Simplification 

There are many different ways to write any particular algebraic or trigonometric expression. Obviously 
one person's interpretation of "simple" may not agree with another's. For example, in dealing with ratio- 
nal functions, (x + 3? may be preferable to x? + 6x + 9, but when manipulating polynomials, the latter is 
clearly more desirable. 

As you have seen from reading this chapter, M athematica offers a variety of commands that allow full 
control of how an expression will appear. With practice, you will learn to use these commands to reshape 
appearances to suit your needs. 

Asastep in the direction toward simplification, Mathematica offers two commands that can be used to 
simplify complex structures. 


= Simplify[expression] performs a sequence of transformations on expression and returns the 
simplest form it finds. 

= FullSimplify[expression] tries a wider range of transformations on expression including 
elementary and special functions and returns the simplest form it finds. 


Si mplify tries expanding, factoring, and other standard mathematical transformations to reduce the 
complexity of expression. B ecause of its general nature, Si mpl i f y tends to be quite slow in comparison to 
more direct instructions. Ful | Si mpl i f y always produces ап expression at least as simple as Si mpl i f y, 
but may take somewhat longer. 

You can specify a time limitation (in seconds) with the option Ti meConstrai nt. The default for 
Simplify isTi meConstrai nt —^300 апа forFullSi mplify,Ti meConstrai nt > 
I nfinity.Forboth commands, Tri g — True is the default for trigonometric evaluation. 


EXAMPLE 31 First let us generate a messy algebraic expression. 


5 
messyexpression = Expand|( 74, + 1. + тет) | 


1 1 5 10 10 
1+х)? ШЕРЕЗ- ШР (2+x)* МЕРЕЗ; (2+х)? (тух (2+х)? Ы 


5 1 5 5 10 


1+x)* (2+x) (34 xy (тух) (3+x)* + (24x) (3+x)* МЕРЕЗ. (34 xy + 


10 " 20 Ж 10 Е 10 
2+х)?(3+х)” (1+х) (2+х) (3-х) (1+х) (3+х)? (2+х) (3+ х)? 


30 © 30 E 5 " 5 РА 
1+х) (2+х)? (3+х)? (1+х) (2+х) (3+х)? (1+х)* (3+х) (2+х)* (3+х) 


20 " 30 © 20 
(1+х) (2-х)(З3-х) (1+х)?(2+х)?(3+х) (1-х) (2-х) (3+х) 
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Now we will simplify. Of course, M athematica does not "remember" һом messyexpressi on was generated. 


Si mplify[messyexpression] 


(11%12х-3х7) 
(6+11х+6х? + x’ F 


FullSimplify[messyexpression] 


(11+3х(4+х) )° 
(1+x) (2+x) (3+ х)? 


EXAMPLE 32 

messytrigexpression = Expand[(Tan[x]? + Sin[x]? + Cos[x])?] 

Cos [x]? + 5Cos [x]6 Sin [x]? + 5 Соѕ [x]? Sin [х]? + 10 Cos [х]? Sin[x]* + 20 Cos [x]? Sin [x]* + 
10Cos [x]® Sin[x]* + 30Sin[x]? + 30 Cos [x]? Sin[x]® + 10 Cos [x]* Sin[x]? + 
20Sin[x]®+5Cos [x]? Sin[x]? + Sin[x]*° + 10 Sin [x]* Tan [x]? + 30Sin[x]® Tan [x]? + 
5 Sin [x]® Тап [x]? + 20Sin[x]* Tan [x]* + 10 Sin[x]? Tan [x]* + 5 Sin [x]? Tan [x]® + 
10Sin[x]* Tan [x]® + 5Sin[x]? Tan [x]? + Tan [x]*° 

Simplify[messytrigexpression] 


Sec [x]?° 


CHAPTER 8 


Differential Calculus 


8.1 Limits 

The limit of a function is the foundation stone of differential calculus. For a complicated function, the 
calculation of a limit can be quite difficult and can require specialized techniques for its evaluation. 
M athematica has built-in procedures for accomplishing this task and always attempts to determine the 
exact value of the limit. 


m Limit[f[x], x а] computes the value of lim f (X). 


xoa 


$ 
EXAMPLE 1 We wish to compute lim X = A Because both numerator and denominator approach zero as x — 2, 
the limit is not immediately obvious. 


imi X332 
Limit БЕЗ X 1| 
20 

3 
Left- and right-hand limits can be computed with the Di recti on option. 
e Direction — 1 causes the limit to be computed as a left-hand limit with values of X approaching 


а from below. 
e Direction —-1 causes the limit to be computed as a right-hand limit with values of X approach- 


ing a from above. 


The default for the Li mi t command is Di recti оп — Aut o mat i c, which provides Di recti on — -1 
except for limits at co. Thus, M athematica may give a misleading representation of the limit of a discontinuous 


function if the Di recti on option is omitted. 


[Х| 


EXAMPLE 2 Evaluate lim. 
хә 


Li mit [ARSD X 0| 
1 


By default, only the right-hand limit has been computed, since no direction was specified. To fully analyze the 
limit we must compute the left-hand limit as well. 


Li mit | 55D, x 0, Direction 1| 


=1 


The limit does not exist since the left- and right-hand limits are different numbers. 


CHAPTERS Differential Calculus 


M athematica can compute infinite limits and limits at eo. 


EXAMPLE 3 


Li mi t[1/x, x 30, Direction >-1] 


со 


Li mit[1/x, x 0, Direction 1] 


The functi ons in the next example exhibit a different behavior. As X — 0, the function oscillates an infi- 
nite number of times. M athematica returns the limit as anl nt erval object. | nterval [ { тіп, maxi] 
represents the range of values between min and max. 


EXAMPLE 4 


Limit[Sin[1/x], x 30] 
Interval [{-1, 1}] 


Limt[Tan[1/x], x 50] 


Interval [{ -ee, o)] 


SOLVED PROBLEMS 


2* -x-1 
3x 


8.1 Compute lim 
SOLUTION 
wl2:*X-1 
Li mit [H X 0| 
а (1+109[2]) 


tanX— X 


8.2 Compute lim ТЕ 


SOLUTION 
Limit | ess X ZI 


i 
3 


8.3 Compute limQ + sin X)9?* 


SOLUTION 
Limit ((1+Sin[x])°t!!, x 0] 
Уе 
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8.4 Compute lim(e* + X) and lim (e* + х)!” 


8.5 


8.6 


8.7 


8.8 


SOLUTION 


Li mi t ( ExpLx] * x)! *, x ee] 
е 


Li mi t [ExpLx] +x)", х ә о] 
1 


Compute lim(2 — gy 
xol 
SOLUTION 


Lim t[(2- x) P7, x 551] 
е?/т 


If p dollars is compounded n times per year at an annual interest rate of r, the money will be worth 
р| 1+ - dollars aftert years. How much will the money be worth after t years if it is compounded 

continuously (n > œ)? 

SOLUTION 


Limt[p(1sr/n)"', n е] 
есер 


The derivative of a function is defined to be lim 
А А T һ-0 
derivative of Т(хХ)-іІпХ--Х2--віпх. 


. Use this definition to compute the 


f(x+h)- f(x) 
h 


SOLUTION 
f[x ] 2 Log[x] * x? * Sin[x]; 
Li mi e [H E TOU EI 


1 +5 х* + Cos [x] 
х 


The second derivative of a function can be computed as the limit 


lim f(x +h)—2f(x)+ fix- h) 


һо h2 


Use this limit to compute the second derivative of f (X) = InX + X? t sinx. 
SOLUTION 
f[x 1 2Log[x] * x? + Sin[x]; 


ILE Цны, E 


-4 +20 x?-Sin[x] 
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8.2 Derivatives 


There are several ways derivatives can be computed in M athematica. Each has its advantages and disad- 
vantages, so the proper choice for a particular situation must be determined. 


m Iff [Xx] represents a function, its derivative is represented by f ' [ X] . Higher order derivatives are 
represented by f''[ x], f''' [x], and soon. 


EXAMPLE 5 
f[x ] 25 * x! vx? хі +1; 
f' [x] 
1+2x+3x*+4x?+5x?* 
f'' [x] 
2+6x+12x?+20x? 
f''' [x] 
6+24x+ 60x? 


If a more traditional formatting of the derivatives is desired, the command Traditional Formcan 
be used. 


EXAMPLE 6 
f[x ] 25 *x* «x? * x? tx +1; 
f'[x] /] TraditionalForm 
5X «4X 3 3X 4+ 2X41 
f'' [x] // Traditional Form 
20Х2-12Х2-6Х-2 
f''' [x] // Traditional Form 
60X? + 24X* 6 
The prime notation can also be used for "built-in" functions, as illustrated in the next example. If the 


argument is omitted, M athematica returns a pure function representing the required derivative. (Pure 
functions are discussed in the appendix.) 


EXAMPLE 7 
Sqrt' 


1 
2411 


Sqrt'[x] 


& 


1 . 
=== < The variable x replaces the symbol #1. 
2.1: р y 


Sqrt'' 


1 
^A #1272 & 


Sqrt''[ x] 
1 


7а x? 


= D[f[x], x] returns the derivative of £ with respect to x. 
= D[f[x], 4x, ni] returns the nth derivative of £ with respect to x. 
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EXAMPLE 8 


D[x^x* t X2) * x? x * 1, x] 

1 + 2x + Зх? + 4х? + 5х4 
D[x^*x'*x? x? tx * 1, (x, 23] 
2 + 6x + 12x? + 20x? 

рх + ххх * 1, (x, 3)] 
6 + 24x + 60x? 


и 0, which сап be found on the Basic Math Input palette, is equivalent to D. 0, will return the deriva- 
tive with respect to x. The nth derivative is represented by д), 1) 


EXAMPLE 9 


Q, (X^ *x* tx? ex? tx +1) 

1 + 2х + 3x? + 4x? + 5х* 
du, yl Хх ex? хі EX +1) 
2 + 6х + 12х? + 20х? 

Oy, aU EX хі хіх +1) 
6 + 24х + 60x? 


m Derivative[n] is a functional operator that acts on a function to produce a new function, 
namely, its nth derivative. Deri vati ve[ n] [f] gives the nth derivative of £ as a pure function 
апа регі vati ve[n] [f ] [x] evaluates the nth derivative of £ at x. 


It is useful to remember that f' is converted to Deri vati ve[ 1]. Thus, f' [x] becomes 
Deri vati ve[ 1] [x] . Higher order derivatives f ' ' , f' ' ' , etc. are handled in a similar manner. 


EXAMPLE 10 
f[x ] Хх y? ex? +1; 
Deri vati ve[ 1][f ] 


1+2#1+3#1°+4#1°+5#1°%& < Mathematica returns a pure function 
representing the derivative of £. Pure 

Deri vati ме[ 1] [f ] [x] functions are discussed in the appendix. 

1+2x+3x?+4x?+5x?* < #1 is replaced by x. 


The numerical value of a derivative at a specific point can be computed several different ways, depend- 
ing upon how the derivative is computed. The next example illustrates the most common techniques. 


EXAMPLE 11 
f[x ]2(x?- x * 1) 5 
f''[1] < In each of the first three parts of this example, 
30 the second derivative is computed and then x 
DIf{x], (x, 2] /. x 21 is replaced by 1. 
30 
Ox, yf ХІІ. x 291 
30 
:= регі vati ve[ 2][f <- Неге we have defined a new function, g, as the 
g 
94111 second derivative of f. If f is changed, g will 
30 be the second derivative of the new function. 
f 3 Note the use of :- here. This is crucial if g is to 
[x_] =x reflect the change in f . 
9111 


6 
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M athematica computes derivatives of combinations of functions, sums, differences, products, quotients, 
and composites by “memorizing” the various rules. If we do not define the functions, we can see what the 
rules are. 


EXAMPLE 12 
Clear[f, 0] 
D[f[x] * g[x], x] 
f' [x] + g' [x] <- The derivative of а sum is the sum of 
DLf Ix] g [x], x] the derivatives of its terms. 
g(x] £' [x] + £ [x] g' [x] < This is the familiar product rule. 


D[f[x]1/gI[x], x]// Together 


g[xl£'[xl-£f[xlg' [x] 
g [х]? 
0[#[0[х]], x] 


£' [g[x]] g' [x] < Chain rule. 


< Quotient rule. 


We can use M athematica to investigate some basic theory from a graphical perspective. Rolle’s Theorem 
guarantees, under certain conditions, the existence of a point where the derivative of a function is 0: 


Letf becontinuous on theclosed interval [a, b] and differentiable on the open interval (a, b) and suppose 
f(a) = f(b) = 0. Then there exists a number, с, between а and b, such that f' (c) = 0. 


In other words, if a smooth (differentiable) function vanishes (has a value of 0) at two distinct locations, 
its derivative must vanish somewhere in between. 


EXAMPLE 13 Show that the function f (X) = (х? -- 2X? & 15x + 2)ѕіплх satisfies Rolle’s Theorem on the interval 
[0, 1] and find the value of C referred to in the theorem. 

Since f is the product of a polynomial and a trigonometric sine function, f is continuous and differentiable 
everywhere. 

f[x ]:(? + 2х2 + 15x *2) Sin[ xx]; 

f[0] 

0 

f[1] 

0 


FindRoot[f'[c] = , t€, 0. 53] «— We used 0.5 as our initial guess since it is 
{с ә 0.640241) halfway between 0 and 1. 


Plot[ {f [x], f[.640241]}, tx, 0, 11] 


7020 04 “060080010 
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The Mean Value Theorem is similar to Rolle's Theorem and does not require f to be 0 at each endpoint 
of the interval: 


Letf becontinuous on the closed interval [a, b] and differentiable on the open interval (a, b). Then 
there exists a number, c, between a and b such that f(b) - f(a) =f'(c) (b - a). 


If we write the conclusion of the theorem in the form ОЕ = Ё'(с), we see that the Mean Value 
Theorem guarantees the existence of a number, C, between а and b, such that the tangent line at (C, f(C)) is 


parallel to the line segment connecting the endpoints of the curve. 


Note: Rolle's Theorem and the Mean Value Theorem guarantee the existence of at least one number C. 
In actuality, there may be several. 


EXAMPLE 14 Find the value(s), C, guaranteed by the Mean Value Theorem for the function f (X) = VX  sin2z X 
on the interval |0, 2]. 


f[x ]* ух +Sin[2 x]; a=0; b=2; m= ПШ: TIU, 


Plot[f'[x]- m tx, 0, 2}, PlotRange  (-8, 811] 


We estimate the zeros of the function f (X) - m 
to determine the approximate locations of C. 


There appear to be four values: 0.3, 0.7, 1.3, 
and 1.7 (approximately). 


FindRoot[f'[c] == т, £c, {.3,.7, 1.3, 1.7))] 

(c (0.257071, 0.753319, 1.24344, 1.75836} } 
€12.257071; c2=.753319; с3 = 1.24344; c4 2 1.75836; 
I1[x ]:f[ei] +f'[cl](x-c¢cl)/; c1-.25 <x <с1 +, 25 
I2[x ]:f[ce2] +f'[c2](x-¢2)/; c2-.25 <x €c2 +, 25 
I3[x ]:f[e3] + f' [e3](x - c3) /; ¢3-.25 <x €c3 +, 25 
I4[x ]:f[c4] +f'[c4](x-c4)/; cd -.25 sx < сд +, 25 

I [x ]:f[fa] + m(x - a) 

Plot[ €f[x], HL [x], 11[x], 12[x], ІЗІХІ, 14[x]}, £x, a, bd] 


— ~ ~ — 


The tangent lines are parallel to the secant 
connecting the endpoints of the curve. 
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SOLVED PROBLEMS 


8.9 Compute the 3rd derivative of tan X. 
SOLUTION 


Tan'''[x] 
2 Sec [x]*+ 4 Sec [х]? Tan [x]? 


8.10 Compute the values of the first ten derivatives of f(x)=e* at X = 0. Put the results in tabular 
form. 


SOLUTION 
f[x_] =Exp[x?] 
derivtable =Table[i{n, D[f[x], £x, n3] /. x 0), tn, 1, 10]; 


TableForm[derivtable, TableAlignments Right, TableSpacing — {1, 5}, 
Tabl eHeadings  tNone, ( "n", "#!"(0)"}}] 


£™(0) 


0 


ө © м о U 5 (0 M нің 
= 
№ 


8.11 Sketch the graph of f(x) = x*— 50x? + 300 and its derivative, оп one set of axes, for -10 € x < 10. 
SOLUTION 


«Pl ot Legends" 
f[x ] 2 x*- 50x? * 300; 
Plot[ 4f [x], f'[x]}, €x, - 10, 10}, PlotRange — (-1000, 1000}, 


PlotStyle— tGrayLevel[0], Dashing[{.015}]}, 
PlotLegend — { "Е (x) ", "£' (x) ")] 


1000 


Observe that f '(x) = 0 precisely 


where f(X) has a relative (local) 
maximum or minimum. 
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8.12 Given f(x) whose graph is C, the slope of the line tangent to C at a is f (a). Let f(X) = sin X. Sketch 


8.13 


the graph and its tangent line at a = 77/3. 


SOLUTION 

f[x ] =Sin[x]; Recall that the equation of a line having 
а= л! 3; slope m, passing through (Х|, yi) is 

Ix 12 а] ++ [а] (х= a); жыны, 


ог у= у +M(X-X,) 


Plot[ {f[x], Hx] 3, £x, 0, 221] 


Here, X, = a, y, = f(a), and m =f (а) so 
y =f(a) +f (a)(x — a) 


11 
Use Mani pul at e to show the tangent line at various positions along ће curve y = sin X, 0< X < 2m. 
SOLUTION 

The tangent line has equation у= f(a)+ f (aXx — a). 


f[x ] = Sin[x]; 


This guarantees that the tangent line will have a constant length of 2. 


ТЕ : T" l 
I[x_, a_]l:=f[a]+f'[a](x-a)/;a A*UDE 


€x Sat 


1 
м1 +#' [а] — 


Mani pulate[Plot[ {#[х], 1[х, a] >}, £x, 0, 27}, 
PlotRange — {-1,. 5, 1.53], ta, 0, 2:3] 


EE — 


Move the slider to change the location of the tangent line. 
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8.14 


8.15 


Find the value(s) of € guaranteed by Rolle's Theorem for the function 

f(x) = 4x + 39x? — 46X? - 17x* — 2X? on the interval (0, 4]. 

SOLUTION 

Since f(X) is a polynomial, it is continuous and differentiable everywhere. First we verify that f(0) = f(4) = 0. 
f[x ]24x +39 x?- 46 х: + 17 x'- 2x 5 

f[0] 

0 

f[4] 

0 


Now we look to see where f '(C) = 0. Since f ' is a polynomial, we can use NSol ve. 


NSol ve[f'[c] =0] 
((c -0.0472411), (c 1.05962), {сә 2.27466}, іс->3.51296)) 


There are three values of С between 0 and 4 (Rolle's Theorem guarantees at least one). A plot of the graph 
confirms our result. 


Plot[f[x], £x, -1, 4] 


Verify the Mean Value Theorem for the function f (X) = X-- sin2X on the interval [0, л]. 
SOLUTION 


f(X) is continuous and differentiable everywhere. Define a = 0, b = m and solve the equation 
f(b)- f (a) =f '(с)(0 — a) forc. To approximate their values, we look at the graph with the endpoints connected 
by a line segment. 


f[x ] =x * Sin[2x]; 


az0;bzm 
m- цЫ- flal, «— Slope of the secant connecting the endpoints. 


FI " ]=ff[a]+m(x- а); «— Function representing the secant line. 
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Plot[ €f [x], |[x]}, £x, a, b}¥] 
3.0} 
25| 
20! 
151 
iot 


0.5 E 


0.5 1.0 1.5 2.0 2.5 3.0 


It looks like the tangent line will be parallel to the secant when X «1 or X = 2.5. Clearly both values lie 
between 0 and m. 


FindRoot[f[b]-f[a] =f'[c](b- a), tc, 1}] 
FindRoot[f[b] - #[а] =f'[c](b- a), £c, 2.53] 
(c 0.785398} 

(c 2.35619} 


8.3 Maximum and Minimum Values 


A function f has an absolute (global) maximum over an interval, |, at a point C if f(x) < f(C) for all x in I. 
In other words, f (C) is the largest value of f(X) in|. A similar definition (with the inequality reversed) holds 
for an absolute minimum. One of the most important applications of differential calculus is optimization, 
i.e., finding the maximum and minimum values of a function, subject to certain constraints. 

Not all functions have absolute maxima and minima. However the Extreme Value Theorem gives condi- 
tions sufficient to guarantee their existence: 


Iffiscontinuous on a closed bounded interval, then f has both an absolute maximum and an absolute 
minimum in that interval. 


A critical number of a function f is a number С for which f (С) = О or f (с) fails to exist. It can be shown 
that if a function is continuous on the closed interval (а, b], then the absolute maximum and minimum will 
be found either at a critical number or at an endpoint of the interval. We can use M athematica to help us 
find the maximum and/or minimum values. 


EXAMPLE 15 We wish to find the absolute maximum and minimum values of the function 
f(x) 2x*- 4X? + 2X? + 4x + 2 on the interval (0, 4]. First we find the critical numbers. 


f[x ]2x'*- 4x? 22x? 44x * 2; 
Sol ve[f'[x] == 0] 
lix 21) {x 31-2}, [x 2 14 va}} 


Of these three numbers, only two lie in the interval [0, 4]. We compute the value of the function at these numbers 
as well as the endpoints of the interval. 


c120; с2-1; c3=1+ 4/2; с4-4; 
points = {{cl, f[cl]}, (c2, f[c2] », (c3, fl c3] 5, (c4, #[с4] }}// Expand; 
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TableForm[poi nts, TableHeadi ngs — { ъ№пе, {"x", "£[x]") ] 


x Е[х] 

0 2 

L 

1../2 il 

4 50 

Max[ tf [c1], f[c2], f[c3], f[c4]3] / | Expand 
50 

Mi n[ tf [c1], f[c2], f[c3], f[c4]3] / | Expand 
1 


The absolute maximum of f is 50 and the absolute minimum is 1. 


EXAMPLE 16 A wire, 100 in. long, is to be used to form a square and a circle. Determine how the wire should 
be distributed in order for the combined area of the two figures to be (a) as large as possible and (b) as small as 
possible. 


100" 


The combined area of the two figures is A(X) = X? *zr?. The circle has a circumference of 2 лг, so it follows that 
4X + 2л r = 100. Since the wire is 100 in. long, 0 < X € 25. 


Solve[4x *2mr =100, r] 


alx ]2x?* nr? |. rœ. 20-25 +) < Replace г in terms of x. 
Т! т 
2 
4 (-25 + х) "n 
т 
Solve[a'[x] ==0] < Find critical value(s). 
хэ 100 |} 
4+1 
х1 = 0; 
? = 200. : Compute the values of a(X) at these three : 
+ 


‚ points. The values are placed in a table with ; 
! numerical approximations for comparison. ! 


X ; 
Tn! 
X i 


3-25 
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points -41Х1, a[x1], Ша(х111Ь «x2, a[x2], М[а[х2]]}, 
{x3, a[x3], N[a[x3]1] 33 / | Together 


TableForm[points, TableAlignments —Center, TableSpacing — (2, 5}, 
TableHeadings — tNone, {"x", "a[x]", "N[a[x]]"}}] 


x a[x] N [a[x]] 
0 2500 795.715 
л 
100 2500 demons 
4+л 4-т 
25 625 625. 


Тһе largest combined area occurs when X = 0 (all the wire is used to form the circle). The smallest area occurs 


when one side of the square is 100. (cut the wire 40 100 


0_ from one end). To further confirm that X = gives a 
Ж +m a n 4T zx 
minimum area, we can apply the second derivative test. 
[100 | 

Si gn fa | Fr 

1 

Since the sign of the second derivative at the critical number is positive, A(X) has a relative minimum at ыр 

л 


Since this is the only relative extreme value, it must be the location of the absolute minimum. 


A function has a relative or local maximum at c if there exists an open interval, Т, containing C such that 
f(x) € f(C) for all x in I. In other words, there exists an open interval containing C such that f(C) is the larg- 
est value of f for all x in this interval. A similar definition holds for a relative minimum. 

Unlike an absolute maximum (minimum), a function may have several relative maxima (minima). If a 
numerical approximation of their location is all that is required, the M athematica commands Fi nd Мі ni mum 
and Fi ndMaxi mum offer an efficient and convenient procedure. 


в FindMi ni mim[f [x], £x, X,}] finds the relative minimum of f(X) near X,. 
в FindMaxi mum[f [x], £x, X,}] finds the relative maximum of f(x) near Xp. 


As with Fi ndRoot, the options Accuracy Goal and Worki ngPreci si on can be set if greater 
accuracy is desired. In addition, Pr eci si onGoal сап һе set to determine the precision in the value of the 
function at the maximum or minimum point. (Precision is the number of significant digits in the answer; 
accuracy is the number of significant digits to the right of the decimal point.) 


EXAMPLE 17 Тһе function f(x) = X  sin(5X) has three relative maxima and two relative minima in the interval 
[0, л]. A quick look at its graph gives good approximations to their locations. 


f[x ] =x * Sin[ 5х]; 
Plot[f[x], tx, 0, n1] 
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Еі памі пі mum[f[x], £x, 11] 

{-0.0775897, {хә 0.902206) ) < The value of the function comes first, 
Fi ndMi ni mum f [x], £x, 23] followed by the value of X. 
(1.17905, (x ә 2.15884} } 

Еі па Махі тілі # [х], £x, 0.41] 

(1.33423, (x 5 0.354431} } 

FindMaxi mum[f [x], £x, 1.52] 

(2.59086, (x 1.61107} } 

FindMaxi mum[f [x], 4х, 33] 

(3.8475, {хә 2.8677)) 


The relative maximum points are (0.354431, 1.33423), (1.61107, 2.59086), and (2.8677, 3.8475). The relative 
minimum points are (0.902206, — 0.0775897) and (2.15884, 1.17905). 


Note: Caution must be taken to examine the results of the calculation. The value obtained is not necessarily the 
one closest to the initial guess. For example, 


FindMaxi mum[f[x], £x, 2.81] 
(5.10414, (x 4.12434) ) 


but the value of X is not between 0 and л. 


SOLVED PROBLEMS 


8.16 Find two positive numbers whose sum is 50, such that the square root of the first added to the cube 
root of the second is as large as possible. 


SOLUTION 
y =50- x; 

f[x 17 Ax + 35у; 
Plot[f[x], tx, 503]; 


NSol ve[f' [x] ==0] 
{{x 2 41.1553) ) 
yl.x 241.1553 
8.8447 
f[41.1553] 
8.48329 


The two numbers are X = 41.1553 and у = 8.8447. The maximum sum is 8.48329. 


8.17 Aright circular cylinder is inscribed in a unit sphere. 


(a) 


(b) Find the largest possible surface area. 
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Find the largest possible volume. 


SOLUTION 


(a) 


(b) 


We consider a two-dimensional perspective of the problem. Label the radius and height of the inscribed 
cylinder r and h, respectively. The volume of the inscribed cylinder is V = rh and, by the Theorem 


2 
= of Pythagoras, r? 9 =1. It is easily seen (even without M athematica) that 


2 2 
AP г?=1— (£) . Thus, the volume, as a function of h, becomes V (h) = lı - (£) | һ. 


v[h. 15 z(1- (h1 2)) hj 
Sol ve[v'[h] ==0, h] 


Obviously only the positive value of h is appropriate. 
ЕЕЕ | - Ў 
NEI Ка Since the sign of the second derivative at the critical 


point is negative, we have a relative maximum at 2h. 


шаны [2 | \3 | Since this is the only relative extremum, it must be the 
47 absolute maximum. 

343 

sign[v''[2/ S31] 

ed 


The surface area of the cylinder (including top and bottom) is S = 2zrh-2zr?. As in part (a), 
һү 


г2+ (£) -1, but because r and r? both appear in the equation for S, it is easier to solve for h in 
terms ofr. 

Sol ve[r? *£(h/ 2)? «1, h] 

ln o -2 1-17}, [n22 4-r] 

Now substitute the (positive) value of h into the formula for s: 

sir _]=2 mr h+2 nr? |. һ-2,1-г:2 

2тт°+4тт\/1-т? 

Solve for the critical value of r : 


Sol ve[s'[r] ==0, г] 


[еэ i65). БЕІН 

Only the positive value of r is acceptable. We use it to compute the maximum surface area. 
1 ; | 

416 ЗІН mpl if y 

(1+ \/5)т 


Si gn В 1 | 15 (5 + 48) | < Confirmation of a maximum. 


-1 
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8.18 Find the points on the circle X? + y? - 2X – Ay = 0 closest to and furthest from P(4, 4). 
SOLUTION 
First we draw a diagram. 


circle =ContourPlot[x?+y?-2x-4y «0, (x, -5, 5}, fy, -2, 53]; 
point =Graphics[ {PointSize[ Medium], Poi nt[ £4, 43] }]; 
Show[circle, point, Frame —> False, AspectRatio — Automatic, Axes >True] 


Let (X, y) represent a point on the circle. First, we need to solve for y in terms of X. 
Solve[x? +у2- 2x - 4y «0, y]//Simplify 
lly22-Jas2x x fy 2*4 2x-»] 


We shall minimize the square of the distance from (X, y) to (4, 4). We call this 32. It is clear from the 
picture that the point closest to P lies on the upper semicircle. 


у:2%,4%2Х-х1 
d2[x ] (x - 4)? «(y - 4); 
Sol ve[d2' [x] ==0] 


1 
03+), 
(кур. x (13 +3 65) 15i mti fy 
ЕЕЕ RES 
13 13 
% | N 
{2.86052, 3.24035} 


The point furthest from P lies on the lower semicircle. 
у:2-,4%2Х-х 


d2[x ] z(x - 4)? *(y - 4); 
Sol ve[d2' [x] --0] 


CHAPTERS Differential Calculus 


КЕ 4 i (13 ES 


{х,у}. x > (13-3 J65)/ 1Si ml ify 


% | N 
{-0.860521, 0.759653} 


8.19 A local telephone company wants to run a cable from point A on one side of a river 100 feet wide 
to point B on the opposite side, 500 feet along the shore from point C, which is opposite A. It costs 
three times as much money to run the cable underwater as on land. How should the company run the 
cable in order to minimize the cost of the project? 


SOLUTION 


If we let a represent the cost per foot to run the cable on land, 3a is the cost to run a foot of cable under- 
water. The total cost is then C(X) = 3ayX? + 100° + a (500 — x) . Of course, 0 € x € 500. 


E 500” - 


С X 500-x B 


100' 
y X? + 100? 


c[x 123a Jx?* 100? +a(500- x); 


Sol ve[c' [x] «0, x] 


ffx —2542 |} 
Now we must compare the cost corresponding to this solution with the cost at the endpoints of the interval. 
c[0] //N 
800. a 
ШЕЛІ ТТ 
: For minimum cost, run the cable ! 
782.843 а 1 underwater to the point 25/2 feet 1 
c[500] Г/М 2.2. 
1529.71 а 


8.4 Power Series 

The nicest functions to work with are polynomials. They are continuous and can easily be differentiated 
and integrated. If a difficult function is encountered in a problem, one approach is to approximate it by a 
polynomial. 
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If the value of the function and its derivatives are known at a single point, a, the function can often 
be represented by a power series. This, however, is usually an infinite series that must be truncated for 
practical application. The trick is to truncate it in such a way that it accurately approximates the given 
function, at least in some neighborhood of a. 


The following series, known as a Taylor series, gives a representation of an analytic! function, f(X). If 
а = 0, the series is known as а Maclaurin series. 


өз [^ 
f09- Y, a-a 
К-0 ы 


f ^ (a) represents the kth derivative of f evaluated at a. If k = 0, it represents f(a). 
If we truncate this infinite series by omitting all terms of degree greater than n, we obtain the nth degree 


Taylor polynomial of f about a. We shall represent this polynomial as p, (х). If a = 0, the polynomial is 
called a Maclaurin polynomial. 


EXAMPLE 18 То obtain the Maclaurin polynomial of degree 5 for the function f (X) 2 e*, we can use the 


Sum command or the У symbol from the Basic Math Input palette. Here are three different ways the 
polynomial can be generated: 


f[x ] = Exp[x]; 
(a Sump[(D[f[x], €x, k3]/.x 0) k! * x*, {К, 0, 51] 


5 
бу. 5 T 


ко. X KE x? 
1+х + + + 


2 * в 7247126 


(с) уинн ши 
k=0 Е 


х х х х 
1+х + + + 


ae 24 тар 


Mathematica includes a convenient command for constructing the Taylor polynomial. 


m Series[f[x], £x, a, n1] generatesaSeri esDat а object’ representing the nth degree Taylor 
polynomial of f(X) about a. 


EXAMPLE 19 


f[x Із Ехр[х]; 
Series[f[x], tx, 0, 51] 
х? x 


x x? 
1+х + 2 + 6 t 54 * 120 


T O[x]$ 


The symbol О [x] ® in the above expansion represents the “order” of the omitted terms in the (infinite) expansion. 
О [х] means that the omitted terms have powers of X of degree > 6. 


We can see what a Series Data object looks like by using the command | nput For m. 


m |nput For m[ expression] prints expression in a form suitable for input to M athematica. 


! An analytic function of a real variable is one that has a Taylor series expansion. Most functions encountered in applications are of 
this type; however, even if a function has derivatives of all orders, it may not be analytic. 
2А Ѕегі esData object is a representation of a power series but does not have a numerical value. 
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EXAMPLE 20 
f[x Із Ехр[х]; 
s -Series[f[x], (x, 0,53; 
I nputForm[s] 
SeriesData [х, 0, (1, 1, 1/2, 1/6, 1/24, 1/120}, 0, 6, 1] 


ASeries Data object is non-numerical and therefore cannot be evaluated numerically. 


EXAMPLE 21 


f[x ] = Ехр[х]; 
p[x_] =Series[f[x], «x, 0, 51] 
x4 x? 


2 

lexe X + +О[х]° 
2 6 24 120 

p[1] 


SeriesData::ssdn : 
Attempt to evaluate a series at the number 1. Returning Indeterminate. >> 


Indeterminate 


In order to convert the series into one that can be evaluated, the function No r mal can be used to trans- 
form it into an ordinary polynomial. 


в" Normal | series] returns a polynomial representation of the Ser i es Dat a object series, which сап 
then be evaluated numerically. The О [x] " term is omitted. 


EXAMPLE 22 
f[x ] 2 Exp[x]; 
s = Series[f[x], £x, 0, 5] 


x x? 


+ + +О[х]° 
6 24 120 


2 
х 

1+х + + 
2 


p[x ] = Normal [s] 


ізха x? Е x? + х? Е х Nor mal has converted the Seri еѕ раѓа object into an ordinary 
2 6 24 120 polynomial, whose value can now be computed. 


The number obtained in the previous example, 163/60, is approximately 2.71667. If we compare 
this to the (known) value of e « 2.71828, we see a small error in our approximation. We would expect 
the error to diminish as the degree of the polynomial increases. This is shown to be the case in the next 
example. 


EXAMPLE 23 
f[x ] =Exp[x]; 
exactval ue 2f [1]; 
ріп ] := Normal [Series[f [x], £x, 0, n}]]/. х 1 
data = Table[ £n, N[p[n]], N[Abs[p[n] - exactvalue]]}, tn, 1, 103]; 
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TableForm[data, Tabl eSpacing — (1,10), 


TableHeadi ngs —tNone, {"n", " p(1)"," Error")]] 
n р(1) Error 
1 2. 0.718282 
2 2:5 0.218282 
3 2.66667 0.0516152 
4 2.70833 0.0099485 
5 2.71667 0.00161516 
6 2.71806 0.000226273 
7 2.71825 0.0000278602 
8 2.71828 3.05862 x10°° 
9 2.71828 3.02886 X 107 
10 2.71828 2.73127x10°% 


EXAMPLE 24 То see the convergence of a power series even more dramatically, we can construct an anima- 
tion showing the sequence of Maclaurin polynomials converging to e*. We consider the interval |0, 5]. 


f[x ] = Ехр[х]; 
ріп , x ] : Normal [Series[f[t], «t, 0, ny]] /.t эх 


Ani mate[Plot[{p[n, x], f[x]}, £x, 0, 5}, 
PlotRange 5 (0, Exp[ 513], £n, 1, 10, 17] 


Oi tpi t of Animate when n = 5 


If only the coefficient of a particular term of a series is needed, the command SeriesCoef ficient 
may be used. The actual series, which may be quite long, need not be printed in its entirety. 
SeriesCoefficient istheSeri esData equivalent of Coefficient for polynomials. 


m SeriesCoefficient[series, n] returns the coefficient of the nth degree term of aSeri esData 
object. 


EXAMPLE 25 
f[x ] 2 Exp[x]; 
s = Series[f[x], £x, 0, 101]; 
SeriesCoefficient[s, 10] 


—li. 
3628800 
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SOLVED PROBLEMS 


8.20 


8.21 


8.22 


8.23 


Obtain the Maclaurin polynomial of degree 10 for the function f(x) = tan"!x by using a direct 
summation and then by using the Ser i es command. 


SOLUTION 
f[x ] = ArcTan[x]; 


i Derivati k] [ f 
Y eriva vel 11 110], 


k=0 


Series[f[x], tx, 0, 103] 


х= 45 x X оТ] 

Obtain a representation of X? in powers of X — 2. 

SOLUTION 

Series[x?, {x, 2, 5}] // Normal 

32+80(-24+x) +80(-2+х)?°?+40(-2+х)?+10(-2+х)*®+ (-2 +x)? 
%/ / Traditional Form 


(X – 2 +10 (X — 2)* + 40 (x — 2} + 80 (x — 2)? + 80 (x - 2) + 32 


Construct a Taylor polynomial of degree 5 about a = 1 for the function VX and use it to 
approximate 43/2 . 


SOLUTION 
p[x_]=Series[ Vx, (x, 1, 5)] / / Nor mal 


1+5 (-1+х)- 2(-1+ х) +- (-1+x} -725 (-14 х) + So (-14 x) 
approx = р[ 3/2] //N 

1.22498 

exact = /3/2//N 

1.22474 

Abs[%- %%] 


0.000230715 < This is the absolute error of the approximation. 


Let f(x) = sin X and compute the Maclaurin polynomials of degrees 7, 9, and 11. Then plot f(x) and 
the three polynomials on one set of axes, 0 € X < 27, and observe their behavior. 


SOLUTION 

f[x ]*Sin[x]; 

p7[x_]=Series[f[x], £x, 0, 753]// Nor mal 
p9[x_]=Series[f[x], £x, 0, 9}]// Nor mal 
pli[x_]=Series[f[x], £x, 0, 1153]// Nor mal ; 


CHAPTERS Differential Calculus 


8.24 


8.25 


Plot[ tf[x], р7[х], p9[x], pli[x]}, ix, 0, 2 л}, 
PlotStyle  {Тһі скпеѕ5[., 01], Thickness[.001], 
Thi ckness[.001], Thi ckness[.001] }] 


at 


at 


The higher the degree of the polynomial, the better the polynomial 
approximates f(X) = sin X. 


Let f(X) = sin X and compute the Maclaurin polynomial of degree 11. Construct an error function and 
compute its value from X = 0 to X = 1 in increments of 0.1. Place the results in the form of a table and 
comment on the values of the error as X gets further from 0. 


SOLUTION 

f[x_] =Sin[x]; 

pli[x_] =Normal[Series[f[x], {x, 0, 11}]]; 
error[x ] =Abs[f[x] - pl1[x]]; 

errorvalues = Table[ tx, error[x]}, £x, 0, 6, 1, }]; 


TableForm[errorvalues, Tabl eSpacing >{1, 5}, 
Tabl eHeadings > { М№опе, { "х", "  error[x]"))] 


error [x] 


.59828 x 10? 
29086 x 10-5 As X gets further from 0, the error gets larger. 


.000245414 
.0100021 
.174693 
.78084 


ол ош мю ҥн OT! 
к ооонкҥнҥк о 


Let f(X) = sin X. Construct the Maclaurin polynomials of degrees 1, 3, 5, 7, and 9 and compute their 
value at X = 1. Determine the error in the approximations and express іп a tabular form. 


SOLUTION 

f[x_] = Sin[x]; 

exactval ue =f[1]; 

value[n ] := Normal [Series[f[x], £x, 0, n3]] /. x 1 


data = Table[ £n, N[value[n]], N[exactval ue], 
N[ Abs[value[n] - exactvalue]]}, £n, 1, 9, 2}]; 


8.26 


8.27 
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TableForm[data, TableSpacing — (1,5), 


Tabl eHeadi ngs — (None, ("n", " p(1)"," Е (1)", " Error"))] 
п р(1) £(1) Error 
1 1. 0.841471 0.158529 As n gets larger, the error gets smaller. 
3 0.833333 0.841471 0.00813765 
5 0.841667 0.841471 0.000195682 
7 0.841468 0.841471 2.73084 x 1075 
9 0.841471 0.841471 2.48923 x 10^? 


Let f(X) 2 In x and compute the Taylor polynomials about a — 1 of degrees 5, 10, and 15. Then plot 
f(x) and the three polynomials оп one set of axes, 1 € X € 2. 


SOLUTION 

f[x ] =Log[x]; 

p5[x_] =Series[f[x], £x, 1, 53]// Normal ; 
plo[x_]=Series[f[x], €x, 1, 101]// Normal; 
pl5[x ] = Ѕегіеѕ[#[х], (x, 1, 153]// Normal; 


Plot[ £f [x], p5[x], p10[x], pl5[x] 2, tx, 1, 2}, 
PlotStyle—tThickness[.01], Thickness[.001], 
Thi ckness[.001], Thi ckness[.001] 7] 


Let f(x) = In x and construct the Taylor polynomial of degree 5 about a = 1. Construct an error 
function and compute its value from X = 1 to X = 2 in increments of 0.1. Place the results in the form 
of a table and comment on the values of the error as X gets further from 1. 


SOLUTION 

f[x ] = Log[ x]; 

p5[x ] = Normal [Series[f[x], £x, 1, 531]; 
error[x ] =Abs[f[x]- p5[x]]; 

errorvalues = Table[ £x, error[x]}, (x, 1, 2, . 13]; 
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TableForm[errorvalues, TableSpacing—t1,5), 
TableHeadings —> {None, (" x", "  error[x]"))] 


error [x] 


.53529 x 1077 
10997 x 10% As X gets further from 1, the error gets larger. 


-0000967355 
.000509097 
.00182656 
.00514837 
.0122941 
.026016 
.0502191 
.0901862 


NFPPRPPRPPPRPRPRP Pe] 
Q 0 ы сол ш N | 


oo O э о о ш ШЫ эх ш FS 


8.28 Let f(x) =1п x. Construct the Taylor polynomials of degrees 1, 2,3, . . . , 10 about a = 1 and compute 
their value at X = 1.5. Determine the error in the approximations and express in a tabular form. 


SOLUTION 

f[x ] 2 Log[x]; 

exactval ue =f[1.5]; 

value[n ]:-Normal[Series[f [x], £x, 1, n3]]/. x 21.5 


data = Table[ £n, N[value[n]], exactval ue, 
N[Abs[val ие[ п] - exactvalue]]}, £n, 1, 102]; 


TableForm[data, TableSpacing — (1,5), 


TableHeadings —> {None, ("n"," p,(1.5)"," f(1.5)"," Error"}}] 

n PULS) fils) Error 

al 0.5 0.405465 0.0945349 

2 0.375 0.405465 0.0304651 

3 0.416667 0.405465 0.0112016 

4 0.401042 0.405465 0.00442344 

5 0.407292 0.405465 0.00182656 

6 0.404688 0.405465 0.000777608 
7 0.405804 0.405465 0.000338463 
8 0.405315 0.405465 0.000149818 
9 0.405532 0.405465 0.000067196 
10 0.405435 0.405465 0.0000304603 


8.29 What is the coefficient of the xX” term of the Maclaurin series for sin(x? + 1)? 
SOLUTION 
s = Series[Sin[x?*1], tx, 0, 203]; 


SeriesCoefficient[s, 20] 


| Sin[i] 
3 628 800 


СНАРТЕК 9 


Integral Calculus 


9.1 Antiderivatives 

An antiderivative of a function f is another function F such that F ' (x) = f(x). In Mathematica, the 
Integrate command computes antiderivatives. Y ou will notice, however, that the constant of integration, 
C, is omitted from the answer. 


m Integrate[f[x], x] computes the antiderivative (indefinite integral) J f(x) dx. The symbol 
| пап from the Basic Math Input palette may also be used. 


Mathematica can compute antiderivatives of elementary integrals found in standard tables, but if 
unable to evaluate an antiderivative in terms of elementary functions, the software will try to express the 
antiderivative in terms of special functions. If this is not possible, M athematica returns the antiderivative 
uneval uated. 


EXAMPLE 1 
fx? Әзікібілікі ax or Integrate[x^2Exp[x] Si n[x], x] 


ł e*(-(-1+x)}? Cos [x] + (-1 + x?) Sin[x]) 
EXAMPLE 2 
fsi п[х 2] ах or Integrate[Sin[x ^2], x] 
Т 2 This integral has no simple antiderivative, so Mathematica expresses 
(5 гезле [2 d it as a Fresnel sine integral: FresnelS(x) - ЕШ dt 
EXAMPLE 3 


Гілібілікі1 ax or Integrate[Sin[Si n[x]], x] 


[Sin [Sin[x]]dx < Mathematica cannot evaluate this antiderivative. 


Care must be taken when general antiderivatives involving parameters are requested. 


EXAMPLE 4 
IE "aX 


1%п 


x 
l+n 
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Of course, this result is valid only if n = - 1, but if the value of n is specified, Mathematica knows what to do. 
n=-1; 

Јх"ах 

Log [x] 


SOLVED PROBLEMS 


9.1 Compute [vx dx. 


SOLUTION 
[x ax ог I ntegrate[ x, x | 
2x? 
3 
9.2 Compute J Va? + x? dx 
SOLUTION 


Баз dx ог Integrate FEES x | 
2 хуа? +x? +2 a? Log| x + Va? +x | 
9.3 Compute f- u 
SOLUTION 
= а ог Integrate[1/Sqrt[u?- a?], и] 
тоғ(а- Га? + u? | 
9.4 Compute Jtanh x dx. 


SOLUTION 


Јтапһ x] ax or Integrate[Tanh[x], x] 
Log [Cosh [x] ] 


9,5 Evaluate (a) ШУ апа (b) (ІШ (х)ах. 


SOLUTION 
(a) [f Ex] ax (b) fg' EFDxIIf' Dx ax 
£ [x] g[£ [xl] 


96 Construct a table of integrals for [sin^x dx n=1,2,3,..., 10. 
SOLUTION 


anti [n]:s fsin[x]" dx 
tablevalues zTable[ £n, Together[anti [п] ] >, £n, 1, 107]; 
Tabl eForm[tabl eval ues, Tabl eSpaci ng C1, 5}, 


Tabl eHeadi ngs > {None, (өң "[51п°х а) 
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i [Sin [x] ax 


1 - Cos [x] 
2 2 2x-Sin[2xl) 


1 
3 i? Cos [x] + Cos [3 x] ) 
4 i(02x-8Sin[2x]«Sin[A4x]) 
5 525 (-150 Cos [x] 25 Cos [3 x] 3 Cos [5 x] ) 
6 25 (60x -45Sin[2x]«9Sin[4 x]- Sin [6 x]) 
7 -1225Cos [х]+ 245 Cos [3 x]- 49 Cos [5 х] + 5 Cos [7 x] 
2240 
8 840x-6728in[2x]«4168Sin[4x]-32Sin[6 x] 3 Sin [8 x] 
3072 
g  739690Cos [x] + 8820 Cos [3 x] 2268 Cos [5 x] 4405 Cos [7 x] - 35 Cos [9 x] 
80 640 
jo 2520x-21008in[2x]«600Sin[4 x]- 150Sin[6 x] 25 Sin[8 x] -2Sin[10 x] 
10 240 


97 UseMani pul ate to evaluate Jsin^x dx for1<n <10. 
SOLUTION 
Mani pul ate| fi n[x]" dx / | Together, (n, 1, 10, 1), Control Type — Radi oButton | 


nO102030405060708029010 


192 (60 x - 45 8in[2 x] + 9 Sin[4 x] - Sin[6x]) 


9.2 Definite Integrals 

A definite integral can be computed one of two ways: exactly, using the Fundamental Theorem of Calculus, 
or approximately, using numerical methods. Y ou can instruct Mathematica which method you wish to use 
by choosing from two commands. 


и | ntegrate[f[x], (x, a, b3] computes, whenever possible, the exact value of [^fi f(x) dx. The 


symbol i o d o on the Basic Math Input palette may be used as well. 
= Nintegrate[f[x], «x, a, b}] computes an approximation to the value of ІШ Қо) dx using 
strictly numerical methods. 


NI ntegrate evaluates the integral using an adaptive algorithm, subdividing the interval of integra- 
tion until a desired degree of accuracy is achieved. The interval is divided recursively until the value of 
AccuracyGoal orPrecisionGoal isachieved. 


e AccuracyGoal isan option that specifies how many digits to the right of the decimal point should 
be sought in the final result. Accuracy Goal effectively specifies the absolute error. The default for 
NI ntegrate isAccuracyGoal — Infi nity, which specifies that accuracy should not be used 
as the criterion for terminating the numerical procedure. 

e Worki ngPrecisi on is an option that specifies how many digits of precision should be main- 
tained in internal computations. The default value is approximately 16. 

e PrecisionGoal is an option that effectively specifies the relative error. The default setting, 
PrecisionGoal —Automati c,setsPrecisi onGoal tohalfthevalueof Worki ngPrecisi on. 
If defaults are not used, you should set PrecisionGoal to be less than the value of 
Worki ngPrecision. 
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Other options, which control more precisely how the algorithm should be implemented, are available, 

but will not be discussed here. These options are useful for integrals involving "pathological" functions 
1 1000 à à 

such as 92) dx or ІП еее The interested reader should consult the М athematica Documentation 


Center for details. ‚ 

Тһе sequence N[ I ntegrate[f[x], «x, a, b}]] or | f[x]dx //N evaluates the integral, 
whenever possible, by first finding the antiderivative and then using the Fundamental Theorem of Calculus. 
If this is impossible, NI ntegrate[f [x], tx, a, b}] is called automatically. 


EXAMPLE 5 To evaluate Е e* sinx dx we input 
Integrate[xExp[x] Si n[x], £x, 0, 1}] 
$(-1+eSin[1]) 


Asan alternate representation, we can use the Basic Math Input palette. 
1 

| X е Si n[ x] dx 

ici * e Sin[1]) 

If a numerical approximation is desired, we can type 


1 
resina dx //N or Integrate[x Exp[x] Sin[x], £x, 0, 13] //N 


0.643678 


Here, the antiderivative of the function хе” sin x was computed and then evaluated from 0 to 1. If a strictly numerical 
procedure is preferred, we can use Ni nt egrate. 


NI ntegrate[x Exp[x] Sin[x], £x, 0, 11] 
0.643678 


EXAMPLE 6 Obtain an approximation to if sin (sin x) dx accurate to (a) 6 significant digits and (b) 20 significant digits. 


(а) [Si n{Sin{ хах гун 
0.430606 


(б) ШЕ n[Si n[x]] ax, 20 | Mathematica automatically adjusts WorkingPrecision 
} and PrecisionGoal to achieve the desired result. 
0.43060610312069060491 


M athematica can handle certain improper integrals. A n improper integral of typel is an integral with oneor 
two infinite limits of integration. We define ^ F(x) dx - lim f^ f(x) dx and J f(x) dx = lim f? f(x)dx 
provided the limits exist. Such an integral is said to be convergent. If both MIO dx and Го dx con- 
verge, we define [^ f(x) dx =f" f(x)dx + ІШ 
ЕХАМРІЕ 7 

fe dx 

1 
EXAMPLE 8 

[х ах < This integral is divergent. 

Integrate: : іаім : Integral of x does not converge on (0, œ}. >> 


[s dx 
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EXAMPLE 9 


[iawn 
т 


The value of atypel improper integral may depend upon the values of parameters within the integrand. 
The option Assumpt i ons allows the specification of conditions to be imposed upon these parameters. 


. Assumptions — conditionsspecifies conditions to be applied to parameters within the integral. 


EXAMPLE 10 Геж converges if n « - 1 and diverges otherwise. 


Integrate[x", {x, 1, о}, Assumptions п < - 1] 


221 
1%п 


Integrate[x", ІХ, 1, о), Assumptions п >- 1] 
Integrate:: idiv : Integral of х" does not converge on (1, œ}. >> 


Integrate [х", (x, 1,99), Assumptions п> -1] 


An improper integral of type II is an integral whose integrand is discontinuous on the interval of inte- 
gration. If f is continuous on [a, b) but not at b, we define [i f(x) dx = lim f f (x) dx, and if f is continu- 
ous on (a, b] but not at a we define І f(x) dx - lim f" f(x) ах. If the limit exists, we say the integral is 
convergent. If f has a discontinuity at c e (a, b) and both |А #(х) ах апа ПІ f(x) dx are convergent, then 
f? O) dx = ffo) dx f? fo dx. 


EXAMPLE 11 
(ЕТІ x]dx 
-1 
EXAMPLE 12 
[Lax or Integrate[ 1/ x, £x, -2, 3}] 
I ntegrate:: idiv : Integral of i does not converge on 1-2, 3}. >> 


3 
Ln 


Because of the discontinuity at 0, the integral of Example 12 is improper. If we break up the integral 


; odx (зх : | | 
into the sum of two integrals, [x | x each integral, evaluated separately, diverges. However, if we 
consider the limits simultaneously, 


lim гы ax = lim[In |x [E+ In xe | 
toot] J-2 X Je X | (өш = t 


=lim[Int-In2+In3- Int] 


= |n3-In2 


ps 
RS" 


This number is called the Cauchy Principal Value. The option Pri nci pal Val ue instructs 
Integrate to compute the Cauchy Principal Value of an integral. 


e Principal Val ue True specifies that the Cauchy Principal Value of an integral is to be determined. 
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EXAMPLE 13 
Integrate[1/x, £x, -2, 3}, Princi pal Val ue —True] 


tog| 3 | < Compare with the result of Example 12. 


SOLVED PROBLEMS 


9.8 Compute the area bounded by the curves f(x) = 1 - x? and g(x) = xt- 3x’, 


SOLUTION 
f[x ] 21- x5; 
g[x ] =х*- 3x5; 


Plot[ €f [x], g[x]}, £x, -2, 21] 


First we must find the points of intersection of the two curves. 
intersectionpoints zSolve[f[x]-g[x]] 

-- =1+42 1, {xia + 2 |, {х S e Уз |, {хэ ЖЕЛ) 
(a, b, c, 4} zx/l.intersectionpoi nts 


EIER e ELS SNIEN; + уз} 


The points of intersection correspond to the real solutions of this equation c and d. 
[tbi gx) ax 1751 mpl ity 


8 
is 144/2 (442) 
%/ IN 


4.48665 


9.9 The volume of the solid of revolution obtained by rotating about the x-axis the area bounded by the 


curve y = f(x), the x-axis, and the lines x = a and x = b is NI f (X)P dx. Compute the volume of the 
sphere obtained if the semicircle y = yr? – x?, -r «x <r, is rotated about the x-axis. 


SOLUTION 7 


п f узах 


4nr? 
3 
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9.10 Compute the volume of a frustum of a cone with height h and radii r and R, and use this to derive 


9.11 


the formula for the volume of a cone of radius R and height h. 
SOLUTION 


Position the frustum as shown in the diagram. The frus- 
tum is generated by rotating about the x-axis the region 
bounded by the line segment connecting (0, r) and (h, R), 
the x-axis, and the vertical lines x =r and x = R. The equa- 


tion of the line segment is у= Be yer, The volume is 

h 
z| ydx. 

X 

у= Ex ФГ 

һ 
т| y!dx 
ihzG].rR4RO 
9l. r —0 е Letr = 0 for a cone. 


d 2 
3hzR 


The arc length of a curve represented by f(x), a <x <b, is given by L = ІШІН f'(x)P dx. Compute 
the length of arc of one "arch" of a sine curve. ° 


SOLUTION 
One arch of the curve is generated for 0 < x € m. 


f[x_] = Sin[x]; 
Integrate[Sqrt[1+f'[x] 2], tx, 0, Pis] or IM 1+f' [x]? dx 


: А 1 
2/2 Е111рС1сЕ B M athematica returns the value of the integral as a complete elliptic 
integral of the second kind, represented by El |i pti cE[ x]. We 
% 1 N easily obtain a numerical approximation to the arc length. 


3.8202 


9.12 The M ean Value Theorem for integrals says that if f is continuous on a closed bounded interval 


[a, b], there exists a number, c, between a and b, such that Г f(x)dx = f(c)(b— a). Find the value 
of c that satisfies the mean value theorem for f(x) = In x on the interval [1, 2]. 


SOLUTION 
f[x = Log[x]; 
a=l;b=2; 


Sol ve| [FL x] ах ==f[c](b- a), е 1 1 Si mpl ify 
(6-4) 


%/ | N 


((с->1.47152)) 
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To get a visualization of the M ean Value Theorem for integrals, consider the following plot. Observe that 
the area below the curve, above the x-axis, is equal to the area enclosed by the rectangle determined by c. 


glzPlot[£f[x], ШІСІ», tx, a, b}, 
Ticks 5 ££1, 1.2, 1.4, 1. 6, 1.8, 2.0, tc, "с"}}, Automatic?] 


92 -Graphics[Line[ €(2, 02, (2, f[2] 331]; 
g3=Graphics[{Dashed, Line[{{c, 0}, £c, f[c] +3] 3]; 
Show[ 01, g2, 93] 


0.7 t 
0.6 E 
0.5 È 
0.4 } 
оз! 
02! 


01r 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
C 1.6 1.8 2.0 


The area below the curve, above the x-axis, is equal to the area enclosed 
by the rectangle. 


9.13 The work done in moving an object from a to b by a variable force, f(x), is [ Қо) dx. According 
to Hooke's law, the force required to hold a spring stretched beyond its natural length is directly 
proportional to the displaced distance. If the natural length of a spring is 10 cm, and the force that 
is required to hold the spring 5 cm beyond this length is 40 Newtons, how much work is done in 
stretching the spring from 10 to 15 cm? 


SOLUTION 


Hooke's law states that f(x) = kx where x represents the distance beyond the spring's natural length. 
Since a force of 40 Newtons is required to hold the spring 5 cm (0.05 m) beyond its natural length, 
40 = 0.05k. 


к= 40/0, 05; 
f[x ]*kx; 


. 05 
work = f f[x] dx 


Ts <The work done is 1 J oule. 


9.3 Functions Defined by Integrals 
If f is continuous on [a, b], we can define a new function: 


Fix)= f f (t) dt 


Intuitively, if f(t) > 0, F (x) represents the area bounded by f(t) and the t-axis from a to x, if x >a, and the 
negative of this area if x « a. The (second) Fundamental Theorem of Calculus tells us that F is differen- 
tiable on (a, b) and F ' (x) = f(x) for all x e (a, b). 
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EXAMPLE 14 Let f(x) = 1/x, x > 0. The shaded area іп the diagram represents F (x), assuming x > 1. 


F(t) = ut 


X 
Students of calculus will recognize that F (x) = | iat defines F (x) to be the natural logarithm function. 
M athematica knows this also. 


f[x ] 2 1/x; 

F[x ] = 1 пёедгаќе[# [+], £t, 1, x}, Assumptions x > 0]; 
F[2] 

Log [2] 

F[ 1/2] 

- Log [2] 


EXAMPLE 15 The continuous function f(x) = x* has ап antiderivative, but it cannot be put into "closed form" in 
terms of elementary functions. H owever, M athematica can deal with it as a function defined by an integral. Since all 
antiderivatives of f(x) differ by a constant, we define F (x) to be the antiderivative for which F (0) = 0. Let us plot this 
antiderivative for 0 € x <4. 


f[x ]2x^x; 
F[x_]= |! [t] dt; < By making the lower limit 0, we force F (0) = 0. 
Plot[F[x], £x, 0, 41] 


SOLVED PROBLEMS 
9.14 Let F(x) = | estat. Find F'(x). 
SOLUTION 


Fx l= f Exp[Sin[t]]dt; 


F [x] Thisis in accordance with the Second F undamental 
зїї] Theorem of Calculus. 
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9,15 Sketch, on one set of axes, the graphs of the three antiderivatives of f(x) = e*?"*, 0 <x < 2m, for which 
F(0)20,F(1) = 0, andF(2) = 0. 


SOLUTION 


Because of the complicated nature of f(x), itis faster to use NI ntegrate. 
f[x = Exp[ Si n[x]]; 

Е1[х | := М ntegrate[f [t], «t, 0, x] 

F2[x ]:= М ntegrate[f[t], 1%, 1, x1] 

F3[x | := № ntegrate[f [t], tt, 2, x1] 

Plot[4F1[x], F2[x], F3[x]}, tx, 0, 2m] 


9.16 Consider the semicircle x? + y? = 16, y 2 0 shown in the figure. Find the height, h, so that the shaded 


area is half the area of the semicircle. y 
4 
SOLUTION 


We solve for x as a function of y: 
Solve[x?+y? =16, x] [ 
lix -he-y' {хә 16- y} 4 


By subdividing the y-axis and taking advantage of symmetry, we obtain the following representation for 
A(h), the shaded area: 


М-с--> 


X 
4 


Alh) = 2, xty)dy where х(у) = 16-у: 
x[y 12 416- y?; 


h 
A[h. 1 2 2[ xL yl ау; 


Compute the total area inside the semicircle. (Since we know a formula for the area of a circle, this is a 
good check for errors.) 


A[ 4] 
8л 


То approximate the solution, draw a graph of A(h): 
Plot[A[h], th, 0, 43] 
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It appears that half the semicircular area, 4л 212.5, corresponds to a value of h near 1.5. We finish the 
job with Fi ndRoot. 


FindRoot[A[h] z:4 m, £h, 1.51] 
(h 1.61589) 


9.17 Тһе curve shown is the parabola y = 9 - х2, Find h so that the shaded area is two-thirds the total area 
bounded by the curve and the x-axis. y 
SOLUTION 


Sol ve[y =9- x’, x] 
(ro vb bow vl 
xLy_] = 49 - у; 

Ah ] 2 2 [у] ay; 
totalarea - A[9] 


36 
Pl ot[ A[ h] , (h, 0, 9), AxesLabel ("h" "A(h)}] 


A (h) 


35r 


Two-thirds of the total area of 36 


is 24 and appears to correspond 
to a value of h near 5. 


Fi ndRoot[A[h] == (2/3) totalarea, th, 5}] 
(h 4.67325) 
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9.18 


9.19 


Find a point on the parabola y = x? which is five units away from the origin along the curve. 
SOLUTION 


The length of arc of a function, f(x), from x =a tox=b is 


і- Pv + [f'(xX)P. dx. Obviously there are two points. We shall 
find the point that lies in the first quadrant. 


f[x ] = x5 
sx 12 [+ [th at; 5 


Plot[s[x], £x, 0, 3}, AxesLabel S { "х", "s(x)"3] 


s (X) 


05 . 10 15 20 25 30 
solution =FindRoot[s[x] ==5, (x, 21] 
(х->2.08401) 

x=x/. solution; 


{x, ХІ? 
{2.08401, 4.34308} 


A mixing bowl is a hemisphere of radius 5 in. Determine the height of 100 cubic inches of liquid. 
SOLUTION 


The equation of the hemisphere in three dimensions is 2 
X? + y? +z? = 25, z < 0. Its intersection with the plane 2 = 2, 


is the circle x^ + у? = 25- z, whose radius r =,/25-z? and 
whose area zr? = л (25-2, ). Integrating with respect to z, the y 
volume of the shaded region is V (h) = nf (25-22) dz. (z, has 
been replaced by z for convenience.) 


-54h п} 
v[h 12 x f, (25 - 22) а 
-5 4 -5 
a. R? 
Б” 
As a check, у [5] should give the volume of the hemisphere. The volume of the hemisphere is 
лг? -<л(53)- л, 
3 3 3 
v[5] 
2502 
3 


Plot v as a function of h. 


Plot[v[h], £h, 0, 5}, AxesLabel S {"h", "v[h]"}] 
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v [h] 
250} 


200r 
150+ 
100 - 


50- 


1 2 3 4 5 
Since v [h] is a polynomial function, we can use NSol ve to determine the approximate solution to the 
problem. (From the graph, it looks like h is near 3.) 
NSol ve[v[h] =100] 
((n -2.34629), (Һ->2.79744), (Һ->14.5489)) 


Obviously, the only realistic solution is h 2 2.79744 in. 


9.20 An underground fuel tank is in the shape of an elliptical cylinder. The tank has length | = 20 ft, 
semi-major axis a - 10 ft and semi-minor axis b — 5 ft. b 
To measure the amount of fuel in the tank, we insert a 
stick vertically through the center of the cylinder until it 
touches the bottom of the tank and measure how high the _ 
fuel level is on the stick. How far from the end of the stick 


should a mark be placed to indicate that only 500 cubic } 
feet of fuel remain? | Y 
SOLUTION Cross-section of fuel tank. 

2 
The equation of the ellipse is х= 1 We first want їо define x as a function of y. 


2 
зоне ег, 1 


2 2 2 2 
|5 і E EJ | |> Í Е E || 


Next we obtain an integral representing the cross-sectional area of the tank. We take the positive solution 
and double the area, taking advantage of symmetry. 


a=10; bz5; 


iy 15 i 2177, 


bth 
area[h ]22 f, xLylay; 


As a check, we can compute area [0], area [b], and area [2b]. The area enclosed by the ellipse 
2 

X e fal is лар. 

area[0] 

0 

агеа[ 0] 

257 

агеа[ 20] 

507 
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Since the tank has a uniform cross-section, its volume = length x cross-sectional area. 


length = 20; 
volume[h ] =length* area[h]; 


To approximate the location on the stick that corresponds to 500 cubic feet, we draw the graph of 
volume [h]. Then we use Fi ndRoot to obtain a more accurate value. (We cannot use NSol ve, as in 
the previous problem, because volume [h] is a non-algebraic function.) 


Plot[volume[h], {h, 0, 2b}, AxesLabel — { "h", "volume")] 


vol me 
3000 H 


2500 
2000 [ 
1500 | 
1000 [ 


5001 


From the graph we observe that volume - 500 when n is near 2. 
FindRoot[volume[h] == 500, th, 21] 
(h 2.1623) 


9,21 An underground fuel tank is in the shape of an ellipsoid with semi-axes 6, 10, and 6 ft. (This 
problem, although more difficult than the previous problem, is somewhat more realistic.) To 
measure the amount of fuel in the tank, we insert a stick vertically through the center of the 
ellipsoid until ittouches the bottom of the tank and measure how high the fuel level is on the stick. 
How far from the end of the stick should a mark be placed to indicate that only 500 cubic feet of 
fuel remain? 


y 


SOLUTION 

The equation of this ellipsoid is х2 Y 124 with a = 6, b = 10, and c = 6. The intersection of the 
ellipsoid with the plane z = z, is the ellipse Lyi LO whose area can be computed as a function 
of z,. We then integrate with respect to z to obtain the volume. 
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To determine the area of the ellipse, we take advantage of the fact that Ше 7 тые by an ellipse is 


п times the product of its semi-major and semi-minor axes. If we rewrite 47 += 1-2. in the equivalent 
2 


z 
form + у = 1, we see that the semi-axes are а 1-5. and b л The elliptical 
EIE | 


2 
area is then тМ1-%.) For our values of a, b, and c, this becomes 60 2 ). The 
2)02 


integral representing the volume of liquid as a function of his then V = p" : '(36 - 


vih 12 32- (6-1) а; 
Plot [v[h], £h, 0, 12), AxesLabel S ("h", "volume")] 


voli me 


1400 - 
1200 - 
1000 - 
800 F 
600 F 
400 - 
200r 


NSol ve[v[h] --500] 
((n -3.63858), (h 4.62871), (h 5 17.0099]] 


The mark should be placed approximately 4.62871 ft from the end of the stick. The other solutions are 
extraneous. 


9.4 Riemann Sums 
A partition, P, of the interval | = [a, b] is a collection of subintervals, 


[Xo Xil [Xy Х,] penny Хы» Xl 


where x, = a and x, = b. If we let x; be any point in the ith subinterval and Ax, = x, - x, be the length 


of the ith subinterval, then the Riemann sum of f over | with respect to P is V f(x; )Ax 


If f(x) 20fora € x < b, the Riemann sum represents an approximation of the area under the graph of 
f(x), above the x-axis, from x = a to x = b. The diagram shows the Riemann sum of the function f(x) = 
over the interval [1, 2] as the area enclosed by four approximating rectangles of equal width. 
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The Riemann sum, represented by the gray area enclosed by the rectangles, offers only an approxima- 
tion to the area under the curve. However, as the width of each rectangle shrinks, the approximation gets 
better and the exact area under the curve is approached as a limit. 

The definite integral of f(x) over [a, b] is defined in many calculus texts by 


b қ Ш " = 
| fddx = lim $ БА where |Р || = max Ax, 


The condition ||P || — 0 guarantees that the lengths of all subintervals shrink toward 0 as we take 
more and more subintervals. If all subintervals are of equal length, this condition is equivalent to 
П — ee. For convenience we shall only consider subintervals of equal length. However, in theory, 
this need not be the case. 


EXAMPLE 16 We will consider the function f (x) = sin x on the interval (0, 2/2]. Because ШЕШ dx = 1, this is a 
good example for comparative purposes. 


(а) We use 100 subintervals and choose x; to be the left endpoint of each subinterval. 


f[x_] =Sin[x]; 
a=0; b=7n/ 2; n=100; 
Ax =(b-a)/n3 < Since each Ax has the same value, subscripts are not necessary. 


xstar[i_] =a+(i - 1) Ax; 
Mfixstar[i]] Ax//N 

ізі 

0.992125 


(b) We choose the value of x; to be the right endpoint of each subinterval. (This time we expect an оуег- 
approximation.) 


f[x ] =Sin[x]; 
a=0; b=7n/ 2; n=100; 
Ax = (в-а) / п; 


xstar[i ]=а+і Ax; 
Yfixstarti ]] Ax//N 
ізі 

1.00783 


To improve the accuracy of the approximation offered in Example 16, we сап choose the value of x; to 
be the midpoint of each subinterval. This leads to an approximation method called the midpoint rule. 


EXAMPLE 17 
f[x ] =Sin[x]; 
а-0; b=n/2; п= 100; 
Ax =(һ-а)/п,. 
xstar[i_]=a+(i -.5)AX; 


Унан Ax LIN 
ізі 


1.00001 
As expected, the accuracy of the approximation improves. 


A nother simple approximation method, called the trapezoidal rule, improves accuracy by connecting 
the points on the curve corresponding to the points of subdivision with line segments, forming trapezoidal 
approximations of the area in place of rectangular approximations. 
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CEPS Шаа SUC URN UNT, ааа PLUR M? RTT шаа IT, oe 
0.25 0.5 0.75 1 125 15 


Я P Я z|2, 5 i 
Trapezoidal approximation to Í, sinx dx using four trapezoids. 


The area enclosed by a trapezoid with base Ах and sides A and В is AX (А +В). 
Thus, the area enclosed by the trapezoid constructed in the ith interval, 06.2) Ex 


20 AX 
(хі x], 15 21 f(X) + f (x, )]. 
Thetotal trapezoidal area, obtained by adding the individual areas, is | ымы X 


AX Gu) fx) e SEL FOG) + foe DR) + foe e EEG GU 


If all intervals have the same length, A x, this reduces to 

А 

ЭП) + ҚАЛЫҢ)» FX) FEF) + Р(х)... *EfGx, 1) + Қо, 
or 


XT f(x) 2105) 2109) +2 F(X) + БЕСІГІ 


EXAMPLE 18 Approximate ІМЕШ dx using the trapezoidal rule. 


f[x_] =Sin[x]; 
a=0; bzm/2; n=100; 
Ax =(b- а) / п; 


x[i ]=а+і * Ax; 


approxi mati on = Нара Erben eter] inn 


0.999979 


SOLVED PROBLEMS 


9.22 Compute the Riemann sums of f(x) = x ex/x over the interval (0, 2] using 
(a) the left endpoint of each subinterval. 
(b) the right endpoint of each subinterval. 
(c) the midpoint of each subinterval. е 
Compare with M athematica's approximation to the integral Í f (x)dx. 


SOLUTION 


f[x ] хе vx; 
a=0; b=2; 


ШЕӨСІП 


10.2406 «— M athematica's approximation. 
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п -100; 
Ax =(b- а) / n; 
xstar[i_] =a+(i- 1) Ax; 


Si lxstartil] Ах [ІМ 

e .0328 < Left endpoint approximation. 
xstar[i_] =a +i Ах; 

Уа аг[11] Ах [ІМ 

ізі 


10.4508 < Right endpoint approximation. 
xstar[i_] =a+(i-.5) Ax; 


Yiixstari]] Ax ГМ 
s .24 « Midpoint approximation. 
923 Approximate ЕШІ dX using the trapezoidal rule with n = 100 and compare the result with 
M athematica's approximation. 
SOLUTION 


f[x ]2x Log[x]; 

a=1; bz2; 

n=100; 

Ax = (в-а) / n; 

x[i_] =а +1 Ax; 

approxi mation = АҢ нана ппен) iin 
ігі 


0.6363 
b 
f[x] dx N 
[ [x] L The error of 0.000006 is less than 0.00196. 
0.636294 


9,24 Compute the lower and upper Riemann sums for the function f(x) = X? on the interval [0, 1] for 
n = 2, 4, 8, 16,..., 2? subintervals. Explain the behavior of the approximations in terms of the 


integral Ге ә. 


SOLUTION 

f[x ]2x?; 

a=0; b=1; 

n=2™ 

Ax =(b-a)/n; 

nn zPaddedForm[n, 10]; 


їетр1= paddedror n| ла +(i - 1) Ax] м| (8, «| 
ігі 


temp2 = paddedFora| РД +i Ax] м| (8, «| 
ігі 


list zTable[ { пп, templ, temp2}, «m, 1, 201]; 
TableForm[list, TableSpacing (1, 5}, 
TableHeadings — (None, {" n", " Lower", " Upper"}}] 
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n Lower Upper 
0.125000 0.625000 

0.218750 0.468750 

0.273438 0.398438 

16 0.302734 0.365234 

32 0.317871 0.349121 

64 0.325562 0.341187 

128 0.329437 0.337250 
256 0.331383 0.335289 
512 0.332357 0.334311 
1024 0.332845 0.333822 
2048 0.333089 0.333578 
4096 0.333211 0.333455 
8192 0.333272 0.333394 
16384 0.333303 0.333364 
32768 0.333318 0.333349 
65536 0.333326 0.333341 
131072 0.333330 0.333337 
262144 0.333331 0.333335 
524288 0.333332 0.333334 
1048576 0.333333 0.333334 


As n gets larger, the lower sums increase, approaching a limit of 1, and the upper sums decrease, also 
approaching 


1 
J x? ax 
0 


1 
T 


1 


3 


9.25 Compute an approximation of “et dx using the trapezoidal rule with 10, 50, and 100 subintervals. 
Compare with M athematica’s approximation. 


SOLUTION 


f[x.] =Exp[x?]; 


a=0; b=1; 

ШӨСЕП 

1.46265 < This is M athematica's approximation. 
Ax =(b- a)/n; 

х[і ]=а+і * Ax; 

n=10 


approxi mation = (teaver ишин} гн 


1.46717 < Error = 0.00452. 
n=50 
AX n-1 
approximation = Анаға имен) si 
ізі 
1.46283 < Error = 0.00018. 
n=100 


approxi mation 


1-1 
Анаға riens 


1.4627 < Error = 0.00005. 


CHAPTER 10 


Multivariate Calculus 


10.1 Partial Derivatives 
The commands D, 9, and Deri vati ve discussed in Chapter 8 are actually commands for computing 
partial derivatives. Of course, if there is only one variable present in a function, the partial derivative 
becomes an ordinary derivative. If two or more variables are present, however, all variables other than the 
one specified are treated as constants. 

іп the following descriptions, f stands for a function of several variables. 


= D[f, x] ого,Ғ (onthe Basic Math Input palette) returns o£ /ox, the partial derivative of £ with 


respect to x. 
и D[f,(x, n3] Ordu, mf retumso^£/0x^, the nth order partial derivative of £ with respect to x. 
д 


D[f, xy Xo... x] or returns the "mixed" parti ivati 
m DEF, Xy Xy cs, X] OF, ,, ..., af returns the “mixed” partial derivative 9% хуа зу Өк, 
m D[f, CX, ni, Os П;},..., Хо MF] 0595, , 54, ,,,,,, оц, age returns the partial 
sono OTE [Xap Жолугуу Ж 
derivative yy %; 3 where n+ n, *----n,- n. 


пі ус: nk 
РН. 


х 


For convenience, an invisible comma may be used to separate variables in the partial derivative symbol. 
An invisible comma is entered by the three-key sequence [ESC] [.] [ESC]. An invisible comma works 
like an ordinary comma, but is hidden from the display. 


EXAMPLE 1 
D[ x? y? z*, x] 
2X y? zt 
9,( x? y? z!) < The parentheses are important here. W hy? 
3x? y? z* 
D[ x? y? z*, £2, 23] 
12 x? y? z? 
д, (x? y? 24) 


6 x y? z* 


EXAMPLE 2 


о 5,/7 
Compute Oy ху”. 
flx_,y_] =x? у 
DIf[x, yl, €x, 3}, fy, 4] 


50400х? y? 
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95,5, c, of Ex, yl 
50400x? y? 


TheDeri vati ve command can also be used to construct partial derivatives. Suppose f is a function 
of k variables, Xy, X;, ..., X. 


er Ont 
в" Derivative[n,, n,,..., n,][f] gives the partial derivative Ph a S where 
n,+n,+...+n,=n. Itreturns a pure function (see the appendix) that may then be evaluated at 
[Жуу Ха, r Xil: 


EXAMPLE 3 (Continuation of Example 2) 
f[x ,y ех Y; 
g=Derivative[3, 4][f] 
50400#12#2° & 
50400x?y? 


Although the command D can be used to evaluate partial derivatives at a given point, Der i vati ve is 
perhaps a bit more convenient. 
EXAMPLE 4 Let f(x, y) = х? sin y. Evaluate Ё, at the point (2, л). 


f[x ,y 12 x?Sin[yl; 

D[f[x, yl; x, y1/. (x2, y m 
-12 

Derivative[1, 1][f][2, x] 

-12 


SOLVED PROBLEMS 


10.1 Compute the first- and second-order partial derivatives of f(x, y) = xev. 


SOLUTION 

f[x ,y ]2x Exp[x у]; 
DIf[x, у], x] 
e*Y 4+ e*Y xy 

D[fIx, yl, yl 

e*Y x? 


D[f[x, y], 4х, 21] 
2 е*Уу+е*У х у? 

DI ffx, у], ty, 24] 
еху x? 

DIf Ex, yl, x, yl 


2 ехух+еху x? у 


10.2 The partial derivatives of f(x, y) are defined by the following limits: 
f(x+h, y) - f(x, y) 


f(x, y) = lim 


f(x, ye h) – f(x, y) 
h 


fox у) = lim 
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Compute the derivatives of f(x, y)=In(x?+y?) using the definition and verify using the 
M athematica D command. 


SOLUTION 
f[x , y 1] = Log[x? + y?]; 


Li mit [ED ea ы. o, ZI 


2x 
х? +y? 


D[f[x, уі, x] 
2x 
х? +y? 


Li mit [1% y ке yl EI 


2 


3y 
х? +y? 
D[f[x, yl, yl 


3y? 
х? +y? 


103 Letz = ех. Compute 


037 
д?х oy ' 
SOLUTION 
2 = Exp[x y]; 
0[2, (x, 2}, y] or Ox, 23, y 2 
2е*Уу+е*У x y? 
2 
104 Verify that u = e?" sinkx isa solution of the heat equation: = 94, 
SOLUTION 
u[x , t ] =Exp[-a?k?t] Si n[k x]; 
Ihs = D[u[x, t], t] 
-aje 2 tk? Sin [kx] 
rhs =a’D[u[x, t], £x, 2}] 
-a?e tk? Sin [kx] 
lhs =rhs 


True 


105 A function of three variables, f(x, y, z), is said to be harmonic if it satisfies L aplace's equation: 


of off of 1 
S45 45 20. Let f(x,y,z) =-=. Compute fy f,,, and f,, and show that f is 
o oy? ta JX +y? +Z? ш 
harmonic. 
SOLUTION 
1 
f у, =} 
Ixy у, 2.1] х?+у?+1! 


даа Хх, y, 2] | | Together 
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2x? -у2 - 72 


(х? еа у? F 22)5/2 


дуа EX, у, 21 / [ Together 


-х? + 2у? - 2 


(x? + y? "n 22)5/2 


9; af EX, y, 2] | | Together 


-х? - у? +22? 
(x? +y? + zip 
%%% + 90% + %/ | Together 


0 


10.6 The plane tangent to the surface defined by z = f(x, y) at the point (Xo, yo, Zo) is 
2-2,5 fO yx Xo) + fio vy — Vo) 


Determine the equation of the plane tangent to the paraboloid z = 10 — x? — 2y? at the point where 
x = 1 апа у = 2. Sketch the paraboloid and its tangent plane. 


SOLUTION 
f[x ,y 1210- x! - 2y5 


z=f[1, 2] *Derivative[1, 0] [f ][ 1, 2](x - 1) 
+Derivative[0, 1][f][1, 2](y - 2) / ] Expand 


19-2х-8у The tangent plane has equation 2-19- 2x - 8y. 


glzPlot3D[f[x, y], (x, -5, 53, (y, - 5, 53]; 
g2=Plot3D[z, {x, -5, 5}, {у, - 5, 53] 
Show[ g1, 92, PlotRange ALI, ViewPoint >{2.330, - 2.223, 1.040}] 


10.7 The plane tangent to the surface f(x, y, z) = 0 at the point (X, yo, Zo) is 
f Xo, Yor Zo)(X — X9) + f (Xo, Yor җ)(У— Yo) + (Xo, yo, z))(z- 2) 20 


Sketch the sphere x? + y? +z? = 14 and its tangent plane at the point (1, 2, 3). 
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SOLUTION 


The sphere is centered at the origin and has a radius of /14 . Its equation is rewritten as х2 + y? +z? 14 = 0. 
Wecan use the graphics primitive Spher e to construct its graph. (See Chapter 5.) 


[хуг ех ey! ez! 14; 

91 = Graphi cs3D[Sphere[0, 0,0), J14]]; 

а = Derivative[1, 0, 0] [f ][ 1, 2, 3]; 
b=Derivative[0, 1, 0] [f][ 1, 2, 3]; 

c = Derivative[0, 0, 1][f][1, 2, 3]; 
Solve[a(x- 1) +b(y- 2) *c(z - 3) «0, 2] 


Да da4-x-2y)}} 


g2 = Pl ot3D НЕЕ х-2у),{х,-5,5},{у,-5, | 
Show[ g1, g2] 


SSSR 


10.2 Maximum and Minimum Values 


A function, f , has a relative (or local) maximum at (Xo, Yo) if there exists an open disk centered at (Xp, Yo) 
such that f(x, y) <f (Xy, Yo) for all (x, y) in the disk. A similar definition (with the inequality reversed) holds 
for a relative minimum. If f has either a relative maximum or relative minimum at (Xo, Yo), we say that f 
has a relative extremum at (Xp, Yo). 

If f is differentiable, a necessary condition for f(x, y) to have a relative extremum at the point (X, Yo) is 
f (Xo, yo) = (хо, Yo) = 0. The point (Xo, Yo) is called a critical point of f. 


EXAMPLE 5 То find the critical point(s) for the function f(x, y) = x* + y* — 4xy, we compute the first-order partial 
derivatives, set them both equal to 0, and solve the resulting equations. 
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f[x ,y ] *x'*y*-4Axy 
pdx =D[f[x, yl, x] 
4x'-Ay 
pdy = D[f[x, yl, yl 
-4х+4у? 
Solve[ {pdx =0, pdy z 01, {x, y}] 
{{x>-1, y>-1},{x70, yo0}, {x7 -i, you}, (x5 i, yo -i}, 
{x>1, y> 1}, {x> -(-1y^, yo - (-1^), (xo (-1)0*, y 2 (-1)34}, 
(xo -(-1»^,yo-(-1)^), (xo (-1v^, y 2 (-1»^])] 
The only real critical points are (—1, —1), (0, 0), and (1, 1). 
Not all critical points turn out to be relative extrema. To determine whether a function has a relative 


extremum at a critical point, and if so, whether it is a maximum or minimum, we use the Second Partial 
Derivatives Test: 


Let D(x,y) = f,,(% y) f 


y 06 y) - Ef, Gc у)? and let (Xo, Yo) be a critical point of f. 


1. If D (Xo Yo) > 0 and f,,(x,, Yo) > 0, then f has a relative minimum at (Xo, Yo). 

2. If D (хо, Yo) > 0 and f,,(X,, Yo) < 0, then f has a relative maximum at (хо, Yo). 

3. If (х,у) < 0, then f has neither a relative maximum nor a relative minimum at (х,, у,). We say that 
f has a saddle point at (Xo, Yo). 


If D (Xo, Yo) = 0, the test is inconclusive. 


EXAMPLE 6 Continuing with the previous example, we define D (x, y). (We used to avoid conflict with D, 
M athematica's derivative operator.) 

d[x , y. 129,4 fDx, yl, .,f0x, y1-(9,, f Dx; yl) 

d[0, 0] 

-16 < Negative number; saddle point at (0, 0). 

d[1, 1] 

128 

ды, nf[lx, у.х 51, y 21) 

12 < Relative minimum at (1, 1). 

d[-1, -1] 

128 

ды, nf[lx, y11. t 59-1, y 29-1) 


12 < Relative minimum at (-1, —1). 


Itis certainly worthwhile plotting this function. M athematica makes it easy, although some experimentation with 
the options is necessary to show the details clearly. 


Plot3D[f[x, y], {x,-2, 2}, fy, -2, 2}, PlotRanget-2, 5}, 
ViewPoint >{1.761, -2.816, 0.6471] 


CHAPTER 10 Multivariate Calculus 


To find the maximum and minimum values of a function f (x, y) subject to the constraint g(x, y) = 0, the method of 
Lagrange multipliers can be used. Geometrically, it can be shown that the maximum (minimum) value of f will occur 
where the level curves of f and the level curves of g share a common tangent line. At this point the gradient of f ! and 
the gradient of g will be parallel and Vf (x,y) = AVg(x, у). It follows that 


fy) = Ag, GG y) 
(х,у) = Ag, (x, y) 


Using these equations, together with g(x, y) = 0, А can be eliminated and the values of x and y corresponding to the 
maximum and minimum values of f can be determined. T he next example illustrates the procedure. 


EXAMPLE 7 Suppose we wish to find the maximum and minimum values of f(x, y) = 2x? + 3y? subject to the 
constraint х2+ y? = 4. We define g(x, у) = x^ y? — 4 and eliminate А. 


El i mi nat e [equations A] eliminates X. 
between a set of simultaneous equations. 


f[x , y 1=2х2+3у5 See Chapter 6. 


9%х,у ]*x?*y?- 4; 


conditions = Eli mi nate[ (3f [x, у] == AQgIx, yl, of Dx, yl= A3,9Dx, yl, glx, у]==0}, Л] 
х?= 4-у?&& Ху== 0 && -4у+у? == 0 

points = Solve[conditions] 

((x2-2,y0], (x50, yo -2}, (x50, y 22], (x52, yo 0}} 

To determine the maximum and minimum values of f, we compute its values at these points. 


functionvalues =f[x, y] /. poi nts 
(8, 12, 12, 8] 
Max[functionval ues] 

12 

Mi n[functi onval ues] 

8 


The method of Lagrange multipliers can be extended to functions of three (or more) variables. 


EXAMPLE 8 То find the maximum and minimum values of f(x, у, 2) = xyz, Subject to the constraint х2+ 2y?- 322= 6, 
we define g(x, у, 2) = 2+ 2у2+ 322— 6. 


f[x_, y_,2_]=xy2; 
g[x., y_,2_]=x? +2 y? $32! - 6; 


conditions = Eli ті nate[ {0,#[х, y, 2] -A9,g[ x, y, 21, 
af Ex, y, 2] =AO GLX, у, zl; off x, у, 21 == А9, д[х, yo 2], 9х, yo 2] == 0}, А 
X? = 6 -2 y? -3 27? &&A4y?z--z(6-32)&& xX(2y?-32z)-0&&xy(-2*3z)-0&6 


xz(-243z2)-0&&yz(-2*32)-0&&4z-82 -«32-0&&y^«y(-343z)-«0 
points = Solve[conditions] 


l[x-0,y-0,2-—-42).[1x 0; y 0, goo - 2], 


ix 0,9-0,z- 42],[Ix 0, y 90, z> 42 |, [e 0, у->-43, 20); 


IThe gradient of f(x, y) is the vector function Vf(x, у) =f,(x, y) i f(x, y) j. 
The gradient of f(x, у, 2) is Vfí(x, у, 2) = f(x у, z) Ё+Ї,(х, y, 2) j fos y, 2) К. 
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(x20,y-43,z0),(x250, y> 43,z20), (x20, yo М3, х о}, 
x>-vV2,y>-1,z>- 2 í x>-vV2,y>-1,z> 2 Р 
3 3 
xO-W2,y¥ 91,2 3- 2 7 x-»-42,y-51,2- z " 
3 3 
(x2 V2, yo-1, 2o 2 xo V2 yo a 25 2 ү, 
к->42,у-51,2->- 2 , x> V2, y>1,z> 2 i x2-46,y0,z20 Р 
3 3 


(x2 -46,y0,z20], (x J6, yo0, 290}, {x> Ve, y>0,z>0}} 
functionvalues = х,у, z] /. points 


25.2. 2 2 2 2 2...2 
0;0;0,0;,0,0;0;0; ГА 1 1 1 1 1 1 ,0,0,0,0 
| з '/з' уз Ууз уз уз B 43 | 
Max[functionval ues] 

2 
NEI 
Mi n[functi onval ues] 
2 
NEI 


SOLVED PROBLEMS 


108 Find all relative extrema of the function f(x, у) = x? — y?. Sketch the surface. 
SOLUTION 
fixa y. ех pin 
Sol ve[ {3 f[x, y] ==0, 3f Lx, y] 02, (x, y] 
((xo0,y0]] 
d[x , y 129, 4f Ex, y19, sf Dx, yl- (9, ,f Dx, yl) 
d[0, 0] 
-4 < Negative number; saddle point at (0, 0). 
Plot3D[f[x, у], (x, -5, 5}, fy, -5, 5}, BoxRatios t1, 1, 11] 


А 
m 
ts 


^ 
TR 
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10.9 Find all relative extrema of the function f (x, y) = xye-*-*'. Sketch the surface. 
SOLUTION 
f[x , y ]*xy Exp[- x? - y?] 
pdx = 0, f[x, y] //Factor 
-e -Y (-1+2x?)y 
pdy =o, f[x, y]//Factor 
-e*-Y x(-1+2y?) 
If we try to useSol ve to find where the partial derivatives are 0, we will get an error message due 


to the presence of the (non-algebraic) exponential. However, since -e-* - >? cannot equal zero, we 
can ignore its presence. 


Solve[{-1+2x?) y z0, x(-142y?) «0, (x, y] 


fo o y > o}, fx > TY > zb › AY X 
li. 


l E =t 
Бо а. 
d[x , y. 12 9,4, fDx, У, з) СХ, yl-(0,, fE” yl); 


d[0, 0] 

-1 = Negative number; no relative extremum. 
d[-1/42, - 1/ J2] 

4 

e? 


дау FLX, yl/. {x ->-11.2, y 2-1I42] 


-2 = Relative maximum at (3. +). 
d[-1/ 2, 11.21 

4 

e? 


mn 


Si 
e 


2 < Relative minimum at | 
е 


à, a НЫШ 5 3142, y 51142] 


2 ive mini dE ad 
е = Relative minimum at (7. 
d[1/ 42, 11.21 

4 

e? 

дау FEX, уЈ/. {x > 114A, у 1/42} 

2 ive maxi AL di 
2 <= Relative maximum at (+, —- 
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We sketch the surface showing two views. 


Plot3D[f[x, yl, £x, -3, 3}, £y, -3, 3}, PlotPoints 30, 

Vi ewPoi nt > {1. 391, -3.001, 0.713}, PlotRange >All] 
Plot3D[f[x, у], £x, -3, 3}, £y, -3, 3}, PlotPoints 30, 

Vi ewPoi nt > (0.617, -3.318, 0.245}, PlotRange >All] 


10.10 Use Lagrange multipliers to find the points on the circle х2 + y?— 2x — 4y = 0 closest to and farthest 
from Р(4, 4). 


SOLUTION 


circle =ContourPlot[x?+y?-2x-4y «0, tx, -5, 53, ty, - 1, 54]; 
point = Graphics[ Poi ntSize[. 01], Poi nt[ «£4, 43] +]; 
Show[circle, point, Axes True, Frame False, AspectRatio —Automati c] 


5r 
Д 
24 > A 4 
-ІР 
flx_,y_] =(x- 4)? 4+(y- 4)5 < We minimize the square of the distance from P. 


gix_, у] =x?t+y?-2x- 4y; 
conditions =Eliminate[{o,f[x, y] == Ад, 9[х, у], 
afix, у]=5%9,0[х, yl, glx, yl =0}, М 
2x--443y&&-52y-*13y?---32 


points =Solve[conditions] 


{{x d; 63 - 365), y > Zs- Jes) [x > (13 + 3/65). уэ (1з+ Jem] 


А ! Based upon the computed distances, ! 
ШЕРІ, : the first point is farthest from P апа : 


(5.84162, 1.36948} : the second point is closest. 
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10.11 Find the points on the sphere х2 + у? + z? = 1 that are closest to and farthest from (1, 2, 3). 
SOLUTION 
fix, yo 2] 5(x- AP? 8(y- 2)? &(2 - 3)55 
g[x, y o2 ]13x!ty!z?- 1j 
conditions = El i mi nate[ {o,f[x, у, 2] == A9, g[ xi y, 2], 
д, Ex, у, 212 Ao, g[x, yo 2], 9f Ex, yo 21 == Ад, g[x, у, 2], g[x, у, 2120), М 


3x-z&&3y-2z&&l4z?^-9 
Points = Solve[conditions, (x, y, z}] 


1 (2 3 . 
xo А > ,2- А < Farthest point. 
f та 7 414 | 
gc ‚У ,2- 3 «— Closest point. 
414 7 414 


NF Ex, y, 2] /. Points //N 


(4.74166, 2.64166} 


10.3 The Total Differential 

The command D, discussed in Section 10.1, gives the partial derivative of a function of several variables. 
АП variables other than the variable of differentiation are considered as constants. If f is a function, say, of 
two variables, x and y, but y is a function of x, D will compute an incorrect derivative. 


Dt gives the total differential of a function. 


m Dt[f[x, УІІ returns the total differential of £ [x, y]. 
в Dt[f[x, y], x] returns the total derivative of £ [x, y] with respect to x. 


Of course, £ may be a function of тоге than two variables and the independent variable, listed as x in the 
above description, can be any of the variables defining £. 


D[f[x, yl, x] returns 96 but Dt [f [x, y], x] returns 1E 
дх dx 
EXAMPLE 9 
Calculus equivalent 
f[x , y. 12 x! y5 f(x, y) = xy? 
D[f[x, yl, x] 
of 
2xy? 2-29 
D[f[x, yl, yl 
$a of _ 242 
зх? у x x 
Dt[f[x, yl] 
2xy!Dt[x] + 3 х? у? р+ [у] df = 2xy?dx + Зх2у?ӣу 
Dt[f[x, yl, x] 
2xyl43x?^y?Dtly, x] Шу? + зау: 9) 
Dt[f[x, yl, yl 
df 3 dx 


3x?y?^-«2xy?Dt[x, y] dy XY + xy dy 
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EXAMPLE 10 Suppose f(x, y) = x*y> where y = x3. The following sequence gives ап incorrect result for the 
derivative dz/dx. 


1=х*у5; 

0[2, x] ]. y 9x? <The partial derivative is computed, then y is replaced by х3, 
4x18 

In reality z = xP, so g should be 19x!5. 

Dt[z, x] /. y 9x? <The total derivative is computed, then y is replaced by хз. 
19 xi? 


Іп some expressions, constants represented by letters might cause confusion. The option Constants 
can be used to instruct M athematica to treat a particular symbol as a constant. 


* Constants — {objectlist }causes all symbols in objectlist to be treated as constants. 


EXAMPLE 11 
Dt[x", x] / | Expand 


nx!i*"4x^Dt[n, x] Log [x] 


Dt[x", x, Constants {п} ] 


nxt +n 


SOLVED PROBLEMS 


10.12 Letz-sin xy. Letx = 1, y 2 2, dx = Ax = 0.03, dy = Ay = 0.02. Compute dz and compare it with the 
value of Az. 


SOLUTION 


z=f[x_, y І-біліхуі; 

Az =f[x + Ах, у+ Ay] - f [x, yl; 

Dt[2] /. (x 21, y 22, Dt[x] 30.03, Dt[y] 30.02} 
-0.0332917 

Az/. {x 91, y 292, Ax 50.03, Ay 50.02) 
-0.0364571 


10.13 Use differentials to approximate е?1,/4,01 and determine the percentage error of the estimate. 
SOLUTION 


We take advantage of the fact that 0.1 is near 0 and 4.01 is near 4. 

f[x , y. 1 2 Ехр[х] Sqrt[yl; 

approximation = f[0, 4] + Dt[f[x, y]]/. (x 30, у 4, Dt[x] 0.1, Dt[y] 30.01} 
2.2025 

exactval ue =f[0.1, 4.01] 

2.2131 

percenterror = Abs[approxi mati on - exactval ие] / exactval ue * 100; 
Print["Theerroris ", percenterror, "%"] 

The error is 0.479103 % 


10.14 Use differentials to approximate the amount of metal in a tin can with height 30 cm and radius 10 cm 
if the thickness of the metal in the wall of the cylinder is 0.05 cm and the top and bottom are each 
0.03 cm thick. 
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SOLUTION The change in height is the sum of the thicknesses 
v=nr?h; of the top and bottom. 
Dt[v] /. {h 230, г 210, Dt[r] —0.05, Dt[h] 50.06) 


113.097 


The amount of metal is approximately 113 cm?. 


10.15 If three resistors of resistance, R,, Ra, and R, ohms are connected in parallel, their effective resistance 
is ак or ohms. If a 20-ohm, 30-ohm, апа 50-ohm resistor, each with maximum error of 1%, 


are connected | in parallel, what range of resistance is possible from this combination? 
SOLUTION 
f[R1 , R2 , R3 ] = 


1 ; 
Bree 
f[20, 30, 501// 

9.67742 


ЖЕГЕНІ, R2, R3]] /. (R120, R230, АЗ 450, Dt[R1] 0.2, 
Dt[ R2] 0.3, Dt[R3] 0. 5} 


0.0967742 


The combined resistance is 9.67742 + 0.0967742 ohms. 


10.4 Multiple Integrals 


M ultiple integrals, or more precisely iterated integrals, are invoked by thel nt egr at e command and are 
an extension of the command for a function of one variable. 


в" Integrate[f[x, у], tx, xmi n, xmax?, £y, ymin, ymax}] evaluates the double integral 
[IN X, у) dy dx. 


xmin ymin 
m Integrate[f[x, y, z], «x, xmin, xmax}, £y, ymin, ymax}, £2, zmi n, zmax}] 
evaluates the triple integral кешене f(x,y,z) dz dy dx. 


xmin ymin zmin 


Higher order iterated integrals are evaluated in a similar manner. N ote that the rightmost variable of 
integration іп the! nt egrat e command is the variable that is evaluated first. 

Asan alternative, the integral symbol from the Basic Math Input palette may be used repeatedly for 
the evaluation of multiple integrals. 


EXAMPLE 12 To evaluate [ Гг + y) dy dx, we would type 


Integrate[x +y, {x, 1, 2}, fy, 1, x1] 


міш 


or 


ІШКЕШІСІС 


= 
2 
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EXAMPLE 13 To evaluatethe triple integral [ |, L Xyz dzdy dx, wecan type either 


Integrate[x yz, (x, 0, 2}, fy, 0, x}, tz, 0, x y1] 
4 
or 


таза 
4 


If the integral is such that it's exact value cannot be evaluated, numerical integration сап be used instead. 
в" Nintegrate[f[x, y], «x, xmi n, xmax?, fy, ymin, ymax}] returns a numerical approxi- 


ymax 


mation of the value of the double integral Ls f(x, y) dy dx. 
= Nintegrate[f[x, y, z], «x, xmin, xmax?, іу, ymin, ymax}, (z, zmi n, 2 max 1] 
returns a numerical approximation of the value of the triple integral || | f(x,y,z) dz dy dx. 


xmin 4 ymin 


Higher-order iterated integrals are approximated in a similar manner. If the Basic Math Input pal- 
ette is used, the М command (or / / N to the right of the integral) may be used. All of the options for 
Ni ntegrate as applied to single integrals apply to multiple integrals. 

EXAMPLE 14 


NI ntegrate[Exp[x ^2 y ^2], £x, 0, 1}, (y, 0, 11] or [ ferray ax LIN 


1.1351 


SOLVED PROBLEMS 


10.16 Use a double integral to compute the area bounded by the parabola y = X? + 2x + 3 and the line 
у=х+1. 


SOLUTION 

f[x ] =x?-2x * 2; 

g[x 12x +1; 

Plot[ f [x], g[x]}, £x, - 1, 3)] 


It is always a good idea to sketch the region under 
consideration before integrating. 


coL 


1 | E 779 
intersections = 501 ve[f [x] ==g[x]] 


{x 16-9]. [хэ 26s] 
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xvalues =x/.intersections 
1 1 
{3 (з - 5), (з + УБ) 
а = xvalues[[1]]; b = xvalues[[2]]; 
Гг gix] 
a Jf[x] 
545 
6 
10.17 Find the center of mass of the lamina bounded by the parabola y = 9 — x? and the x-axis if the 
density at each point is proportional to its distance from the x-axis. 
SOLUTION 


Let R be the region bounded by y = 9 — x? and the x-axis. 
Plot[9 - x?, tx, -3, 31] 


M 
The graph intersects the x-axis at —3 and 3. Тһе coordinates of the center of mass are m Ma ) where 


M'M 
M , = moment about the y-axis = il xp(x, y)dA 
R 


M, 2 moment about the x-axis - il yptx, y)dA 
R 
M = mass of lamina = ПрхудА 
R 


The density function p (x,y) = ky. 
dx, y_]=ky; 
3 29-2 
my -ГІ x d x, у] dy dx 
0 


mx = EI dx, y] dy dx 


10.18 


10.19 
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Compute the shaded area. The curve shown is the Spiral of Archimedes and has polar equation 
r = Ө. Itis shown for 0 < 0 < бл. 


SOLUTION 
The area inside a polar region, R, is ffr dr dg. The smaller arc 


of the shaded region is described by r 2 0,21€ 0<5 л/2 andthe 


larger arc тау be represented by r = 0 +2 7,2 m< 0<5 7/2. The 
enclosed area can be expressed as Іш "LS dr d 8. 


(te ial dr аө 


137° М 5 
4 ee шше 


Compute the volume under the paraboloid 2 = х? + у>, above the region bounded by 


y=x and у--/х-1. 
SOLUTION 


The volume bounded by a surface z = f(x, y) and the x-y plane, above a region R, is ІШ X, y) dA. 
First let us look at R. 


plot[(x?, x 1), (x, 1, 2}] 


-1.0 -05 7051015 20 


Next we find the points of intersection. B ecause of the complicated nature of the solution, we will obtain 
a numerical approximation. 


NSol ve[ x? zz jx +1] 


{{x 1.22074), (x э -0.724492) 


Now we can express the volume as a double integral. Two solutions are shown. 
E [xs +y?) ay ax 

724492 
1.11738 
NI ntegrate[x^2 * y ^2, (x, -0.724492, 1.22074}, {y, х^, Sqrt[x +1] }] 
1.11738 
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10.20 Find the volume under the hemisphere z = 4 — x? – y? above the region in the x-y plane bounded by 
the cardioid r = 1 – cos 0. 


SOLUTION 


We will translate the problem into cylindrical coordinates. Since r? = x? + y?, the equation of the hemi- 
sphere becomes z = 4 — r?. The region of integration, R, is the cardioid shown. 


PolarPlot[1- Cos[0], {0, 0, 27}] 


Thevolume, v = [а-да f° rr rao 
R 


2z р1-С05[0] 
Í, Í, (4-г?)г ar аө 


617 


16 


10.21 Find the volume of the solid that lies under the paraboloid z = x? + y?, above the x-y plane, and inside 
the cylinder (х—1)? + у? = 1. 


SOLUTION 


The cylinder (x—1)? + y? = 1 is a cylinder of radius 1 whose axis is translated from the z-axis by the vector 
(1, 0, 0). 


slzGraphics3D[Cylinder[ «41, 0, 0», £1, 0, 89211; 
$2 = Plot3D[x?^* y?, (x, -2, 2}, fy, -2, 21]; 
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Show[s1, s2, PlotRange >{0, 4}, ViewPoint 11.217, -3.125, 0.4473] 


N ow that we know what the region looks like, we must look at its projection in the x-y plane. 


ContourPlot[(x - 1)?* y? z1, £x, 0, 2}, (y, - 1, 1}, Frame >False, Axes >True] 


1.0 


0.5 


-0.5 


-1.0 


Although the problem can be solved in rectangular coordinates, itis easier to solve it using cylindrical coordi- 
nates. The equation of the circle can be expanded to x? + y? = 2x, which is equivalent, in polar coordinates, to 
г = 2 cos Ө, and the paraboloid z = x? + y? becomes 2-72. The complete circle is generated as Ө varies from 


—л/2 to z/2. The required volume may be expressed as a double integral: [5 nm rdr 40 


n2 2Cos[60] 
Í, r?dr 90 


-u2 


зл 


2 


1022 The area of the surface z = f (x, y) above the region R in the х-у planeis ff SEO у)12+1%,(х,у)12+1. 
Compute the surface area of a sphere of radius a. R 


SOLUTION 


We compute the surface area of the portion of the sphere in the first octant and, by symmetry, multiply 
by 8. The equation of the sphere is x? + y?+ z? = a2. Solving for z we get z= Қх,у)-1/а7-х2-у? as 
the function representing the upper hemisphere. Since the projection of the hemisphere onto the х-у plane 
is a circle of radius a centered at the origin, itis most convenient to use cylindrical coordinates. 
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1023 


fix, ae et ee ULT 

1 «(9,f[x, y]? +09, #[х, у)? /] Together 
"NS GN 

-а? + х? + у? 


% J. x? ty? г ПІ Simplify «< Replace x? + y? byr?. 


aff |1» (9, Пх, y? + (2, f[x, у)? dA = 
R 


лі? pa 2 л/2 pa 
8 | | а r dr аө 2 
o Jo Va*-r* 8 > ], Гео т 7 440 


4 Ма? mAbs [a] 


Si mplify[9*, Assumptions >a>0] 

4a’ r 

Find the volume of the "ice cream cone" bounded by the cone z=3./x?+y? and the sphere 

X? * y? + (2—9)? «9. 

SOLUTION 

The required volume is represented by the triple integral. fff dV. Because of the nature of the bounding 
G 


surfaces, this problem is done most conveniently using cylindrical coordinates. First, rewrite the equation of 
the sphere, solving for z in terms of x and y. 


Solve[x?+y?+(z- 9)? «9, z] 

|Е>9-45-“-уМа-9/5-<-у”) 

Using the second solution (corresponding to the upper hemisphere), and replacing х?+ y? by r?, the equation of 
the sphere becomes z 29 J9—r?. The equation of the cone, z 23 x? + y?, becomes z = 3r. Now we сап 
sketch the surfaces that form our region. 

сопе = Revol uti onPl ot3D[3r, tr, 0, 3}, (0, 0, 2 73]; 

hemi sphere = Revol uti onPl ot3D[9 *t49 - r?, (7, 0, 3}, {0,0, 2 nh | 


Show[ cone, hemisphere, PlotRange +All, BoxRatios >{1, 1, 2}, 
Axes False, Boxed Fal se] 


10.24 


10.25 
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To compute the volume, we observe that the projection of the region onto the x-y plane is a circle. To 
determine its radius, we find the intersection of the cone and the hemisphere. 


боме [зт =9 + 4 - г] 
112 3]) 


The projection onto the x-y plane is a circle of radius 3 centered at the origin. The required volume is 


EE [^ "rar ar ae 


3r 
457 


A “silo” is formed above the x-y plane by the intersection of a right circular cylinder of radius 3 and 
a sphere of radius 5. Compute its volume. 
SOLUTION 


It is easiest to work in cylindrical coordinates. The equation of the spherical cap is 2- /25-!?7. It will 
intersect the cylinder when r = 3. The height of the cylinder will be 4. 


cylinder =Graphics3D[Cylinder[{{0, 0, 0}, £0, 0, 433, 3] ]; 
сар =RevolutionPl ot 3D[./25 - r?, {r, 0, 3}, {4 0, 27]; 
Show[cylinder, cap, Boxed — False, PlotRange >{0, 5}] 


The projection of the solid is a circle of radius 3, centered at the origin. 


vol ume = fie T dz dr do 


1227 
3 


Find the center of mass of a solid hemisphere of radius a if its density at each point is proportional 
to its distance above the x-y plane. 


SOLUTION 


The center of mass has coordinates (х, у, z) where 
I X с(х,у,2) dV 
v G 


I y с(х,у,2) dV I 2 о(х,у,2) ау 

= G т 6 

= ШЕРЕІ ' 
G 


7 ШЕРЕШІ P fif o6.y.2 av | 
G G 


<Il 
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The density function, o(x,y,z) = kz, where К is the constant of proportionality. The problem is most 
conveniently solved by using spherical coordinates: 


Х = psinócos0, y-psinósinO, z= рсоѕф 
x =pSin[ ф] Cos[ 6]; 
y = pSi n[ 9] Si n[ 9] ; 
2 : pCos[4l; 
o-kz; 
mass = ГІТ өрі n[ Ф] dp do dO 


1.4 
да КЛ 


ГІР [хор sintglapagae |71 Гу ор Sinig арафа 
mass ! mass ' 


centerof mass = 


Pe ор Si п[ $] dp do 90 
mass 


8a 
{o,0, £3} 


Find the moment of inertia of a solid hemisphere of radius a about its axis if its density is equal to 
the distance from the center of its base. 


SOLUTION 
The moment of inertia about the z-axis is MGE y, zy с(х,у,2) dV where (х, у, z) is the distance from the 
G 


point (x, y, 2) to the z-axis and o(x, y, 2) is the density at the point (x, y, z). In this problem we should 
use a spherical coordinate system: 


Х-рбіпфсо50, y=psingsiné, z= pcosó 


(x, y, 2 = JX? + у? = /(psingcosé)? + (psingsiné)? = psing 


o(x, y,zZ)=/x? +y? +z? =p 
62 pSi пф] 
с=р 
ІЗІН Гер пф арафа 


2а°л 
9 


Ordinary Differential Equations 


11.1 Analytical Solutions 
Simply put, a differential equation is an equation expressing a relationship between a function and one or 
more of its derivatives. A function that satisfies a differential equation is called a solution. 

The Mathematica command 0501 ve is used to solve differential equations. As with algebraic or tran- 
scendental equations, a double equal sign, zz, is used to separate the two sides of the equation. 


= DSolve[ equation y[x], x] givesthe general solution, y [x], of the differential equation, equation, 
whose independent variable is x. 

= DSol ve[ equation y, x] gives the general solution, y, of the differential equation expressed as а 
"pure" function (see appendix) within а list. Repl асеА!1 (/. ) may then be used to evaluate the 
solution. A Iternatively, one may usePart or[[ ]] to extractthe solution from the list. 


EXAMPLE 1 To solvethe first-order differential equation у =X+y,wesimply type 


DSol уе[у' [х] zx * y[xl, у[х], x] 
{{y[x] ~-1-x+e*C[1] }} 


EXAMPLE 2 То obtain the solution of хау as a pure function (see appendix, Section А.1), we enter 
solution = 0501 уе[у' [x] zx +у[х], y, x] 
((yo Function[{x},-1-x+e*C[1]] }} 
If we wish to evaluate the solution, we can type 


y[x] /. solution 

{{y[x] ә -1-x+e*C[1] }} 

Using the pure function, we can evaluate the derivatives of the solution. This would be clumsy using the solution 
of Example 1. 

y'[x]/. solution 

{-1+e*%C[1] } 

у''[х]+у'[х] /. solution 

{-1 +2 e*C[1]} 

We can define a function, £, representing the solution: 

f =solution[[1, 1, 211 

Function[{x}, -1-x-«e*C[11] 
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We can then directly evaluate f or any of its derivatives. 


f[x] 
-1-x+e*C[1] 
f' [x] 
-1+e*C[1] 
f'' [x] 

e*C[1] 


It is extremely important that the unknown function be represented y [x], not y, within the differential 
equation. Similarly, its derivatives must be represented y' [x], y'' [x], etc. The next example illustrates 
some common errors. 


EXAMPLE 3 


DSol ve[y' [x] =X + у, y[x], x] 
DSolve::dvnoarg : The function y appears with no arguments. >> 


DSolve [y' [х] = x+y, y[x], х] : The function and its derivative must be specified as y [x] and ! 
Гу" [x], respectively. : 

DSol ve[y ' zx * y[x], y[x], x] 

DSolve::dvnoarg : The function y' appears with no arguments. >> 


DSolve[y'- x +y, y [xl , x] 


The solution of a first-order differential equation without initial conditions involves an arbitrary 
constant, labeled, by default, c [1]. Additional constants (for higher-order equations) are labeled 
C[2]1, C[3], ... If adifferent labeling is desired, the option GeneratedParameters may be 
used. 


• GeneratedParameters —constantlabel specifies that the constants should be labeled 
constantlabel [1], constantlabel [2], etc. 


EXAMPLE 4 


0501 ме[у' [x] =x+y[x], y[x], x, GeneratedParameters —>myl abel ] 
{{y[x]—> -1-x+e*mylabel [1] }} 


Higher order differential equations are solved in a similar manner. The derivatives are represented as 
y' [х], y" [x], y''' [x], ... Alternatively, 0, д, orDeri vati ve тау be used. 


EXAMPLE 5 


DSolve[y' ' [Ex] * y [x] ==0, y[x], x] 

{{y[x]— C[1] Cos [x]+C[2]Sin [x] }} 
DSolve[D[y[x], £x, 23] +y[x] ==0, y[x], x] 

(Cy [x] C[1] Cos [x] + C[2] Sin [x] } } 

0501 velo, әуіХІзуіхі--0, уіхі, x] 

{{y[x]— C[1]Cos[x] + C[2] Sin[x] } } 

DSol ve[Deri vati ме[ 2] [у] [х] +у[х] 20, y[x], x] 
{{y[x]— C[1] Cos [x] + C [2] Sin[x]l jj 


M ore complicated differential equations are solved, if possible, using special functions. If M athematica 
cannot solve the equation, it will return the equation either unsolved or in terms of unevaluated integrals. 
In such cases a numerical solution (see Section 11.2) may be more appropriate. 
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2 
ЕХАМРІЕ 6 х? - +X су +(x? - 4)y = 0 isaspecial case of В essel's equation. The solution is expressed in terms 


of Bessel functions of the first (Веѕѕе17) and second (Вевве1Ү) kind. 


DSolve[x2y''[x] +xy' Ex] *&( x?- 4) yEx] =0, y[x], x] 
(Cy Ix] OB BesselJ[2,x] C[1]+BesselY[2,x] C[2] }} 


2 
EXAMPLE 7 4%, Y. y? = 0 isanonlinear differential equation that M athematica cannot solve. 


DSolve[y' ' [Ex] *y' Ex] *y[x1? 0, y[x], x] 
DSolve[[y[x]?«y' [x] +y'' [х] = 0, y[x],x] 


If values of y, and perhaps one or more of its derivatives, are specified along with the differential equa- 
tion, the task of finding y is known as an initial value problem. The differential equation and the initial 
conditions are specified as a list within the DSol ve command. A unique solution is returned, provided ап 
appropriate number of initial conditions are supplied. 

EXAMPLE 8 Solve the equation Чу = X + y with initial condition у(0) = 2. Then plot the solution. 

solution = 0501 ме[ {у' [x] x *y[x], y[0] 2», y[x], x] 

{{y[x]> -1 +3 е*- х} } 

Plot[y[x] /. solution, {x, - 5, 2}, AxesOrigin + {0, 0}] 


Here is another way the solution can be plotted: 
solution = 0501 ме[ {у' [х] =x * y[Ex], y[0] 22», y, x] 
{{y > Function[{x}, -1+3 e*-x] }} 

f =solution[[1, 1, 2]]; 

Plot[f[x], tx, - 5, 2}, AxesOrigi n — «0, 01] 
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A useful way of visualizing the solution of a first-order differential equation is to introduce the concept 
of a vector field. A vector field on IR? is a vector function that assigns to each point (x, y) a two-dimensional 
vector F(x, y). By drawing the vectors F(x, y) for a (finite) subset of IR?, one obtains a geometric interpretation 
of the behavior of F. 


m VectorPlot[«Fx, Fy}, «x, xmin, Xmax}, «y, ymin, ymax}] produces a vector field 
plot of the two-dimensional vector function F, whose components are Fx and Fy. The direction of 
the arrow is the direction of the vector field at the point (x, y). The size of the arrow is proportional 
to the magnitude of the vector field. 

• Axes —> Automati c may be used if axes are desired. By default, no axes are drawn. 

. Frame — False may be used if a frame around the plot is not desired. The default is 
Frame — True. 

e VectorScale is an option that determines the length and arrowhead size of the field vectors 
that are drawn. The defaultis$cal eFactor — Automati с. OptionsincludeTi ny, Small, 
Medi umandLar ge. 


Note: Starting with version 7, Vector Pl ot canbe found in the M athematica kernel. If you are using 
version 6, you must use VectorFi el арі ot, located іп the package VectorFiel dPlots' which 
must be loaded prior to use. See the Documentation Center for appropriate usage. 


EXAMPLE 9 Plotthe vector field F(x, y = - yi *xj. 
VectorPlot [£- y, x}, (x, - 5, 5}, fy, - 5, 51] 


ALME M а қыл аған 
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ХХА Яни fed 
ON NN УЯ | 
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pA 
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A ny first-order differential equation can be used to define a vector field. Indeed, the vector field i+f(x, у) J, 
corresponding to the equation g = f(x,y), generates a field whose vectors are tangent to the solution. The 
next example, although simple, illustrates this nicely. 
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EXAMPLE 10 Plotthe vector field of the solution of the equation T- 2x . The solutions to this equation, parabolas 
у= х? + с, сап be seen quite vividly. 


VectorPlot[ {1, 2x}, (x, - 1, 1}, fy, - 1, 1}, Axes Automatic] 


LOE Nx NN Eee AA AAs 
ЧААК Af BÓ, 
ENN хз errr Af’ | 

ба АА ЛАЛА 
Ж SS err EE 
5200022) 
КОКА fA | 

0000—6660 74 4 — 
ККАЛ 
ККЕ ААА 

ТЕБЕ АЛАЯ 
о о PLE 
227 

ККЕ А А f 


| 
m 
o 

1 
о 
Un 
сә 
о 
о 
Un 
m 
o 


EXAMPLE 11 In this example we plot the vector field generated by the equation = = 2х + у. Then the solu- 
tions with initial conditions у(0) = -2, -1, 0, 1, and 2 are plotted on the vector field for comparison. 


vf =VectorPlot[{1, 2x +y}, (x, - 2, 1}, fy, - 4, 6}, 
Axes >Automatic, VectorScale Small] 


6- ^» 1414444 MAKAKKA E 
е ж ” 74444444444 
---»,.,,44444444 

4- ~--- + 4+ wn = + dd 4 4 4 4 J 

L pue d A n Хх, 444444 

ЗЕ x s\n я + 44 

| EOM A Il 552 dd ”, + + + 1 

H A MOA RE RO ы шз ыш Be wy у 

01 4 À X XR XX + c - mode ue жй 

Ь A җ җх җх хох хо ш | — - | » 

| 444444 хо хох -Д---- | 

21 XXX xxx хо УЕЗГЕ | 

Г ҢҚ%%4%4%44%%%:%----- 

[Nx xx хох 

БЫ] 555555555 VEAN J 


1 
N 
o 

1 
m 
Un 

1 
m 
o 

1 H 
о 
Un 
о 
o 
о 
Un 
m 
o 


CHAPTER 11 Ordinary Differential Equations 


solutions =Table[DSolve[{y'[x] z2x +у[х], y[0] =k}, y[x], x], tk, -2, 23]; 


Do[g[k] = Plot[solutions[[k, 1, 1, 2]], £x, -2, 1}, PlotRange >All, 
Frame True, PlotStyle —Thickness[.005]], (k, 1, 51] 


Show[g[11, g[2], 8131, 9141, g[5], vf, AspectRatio +1, PlotRange t(-4,6)7] 
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А system of differential equations consists of n differential equations involving n +1 variables. Solving 
a system of differential equations with M athematica is similar to solving a single equation. 


EXAMPLE 12 This example illustrates how to solve the system Hat, We with initial conditions 
x(0) = 2, y(0) = 3. The equation and its initial conditions are contained within a list. 


solution = DSolve[ (x' [t] == 2, y' [t] ==t?, x[0] «2, y[0] 3», {x[t], y[t]}, t] 


{{x 1-2 (6- t), уіЕІ- i (124 e 


Instead of specifying the values of f and its derivatives at a single point, values at two distinct points 
may be given. The problem of solving the differential equation then becomes known as a boundary 
value problem. However, unlike initial value problems, which can be shown to have unique solutions 
for a wide variety of cases, a boundary value problem may have no solution even for the simplest of 
equations. 

2 
EXAMPLE 13 The equation Y, у= 0 with boundary conditions y(0) = 0, у(х) = 1 has no solution. 
DSolve[ £y ' [x] * yEx] 0, y[0] 20, ylz] ==1}, y[x], x] 
DSolve::bvnul : For some branches of the general solution, 
the given boundary conditions lead to an empty solution . >> 


B 


The same equation with y(0) = 0, y(2/2) = 1 has a unique solution. 


0501 ve[ іу ' [х] *y[x] 20, y[0] ==0, уіл/21--1», y[x], x] 
(ty [x] Ѕіп [х] }} 
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SOLVED PROBLEMS 


11.1 Solvethe differential equation у = xy With initial condition y(1) = 2 and graph the solution for -2 € x « 2. 
SOLUTION 


solution=DSolve[{y' [x] ==ху[х], y[1] 2», y[x], x] 


ly [x] 2 ез x) 


Plot[y[x] /.solution, £x, -2, 23] 


11.2 Plotthe vector field for the differential equation of Problem 11.1. 
SOLUTION 


VectorPlot[ €1, xy}, {x, -2, 2}, fy, -10, 10}, VectorScale Ti ny, 
Axes — Automatic] 
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113 Plotthe vector field for the equation a = X? + y together with its solutions for y(0) = 0, 1, 2, 3, and 4. 
SOLUTION 


vf =VectorPlot[{1, x?+y}, £x, 0, 1}, fy, 0, 12}, Axes Automatic, 
VectorScale— Ti пу]; 
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11.5 


solutionszTable[DSol ve[ {у' [x] zx? *y[x], y[0] «ks, y[x], x], tk, 0, 43]; 


Do[g[k] zPlot[solutions[[k, 1, 1, 2]], tx, 0, 1}, 
PlotStyleSThickness[.007], PlotRange >AlI], tk, 1, 53] 


Show[g[11, [2], g[3], g[ 41, g[ 5], vf, Frame True, AspectRatio 1] 
2 «Y 4444444444) 
Hoo 11114 
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The escape velocity is the minimum velocity with which an object must be propelled in order to 
escape the gravitational field of a celestial body. Compute the escape velocity for the planet Earth. 


SOLUTION 


We shall assume that the initial velocity is in a radial direction away from Earth's center. A ccording to N ewton's 
laws of motion, the acceleration of a particle is inversely proportional to the square of the distance of the 
particle from the center of Earth. If r represents that distance, R the radius of the earth (approximately 


3,960 miles), v the velocity of the particle, and a its acceleration, then a — a. К . At Earth's surface 
(г =R), a = -g, where g = 32.16 ft/sec? = .00609 mi/sec?. It follows that T SO à =f Since 


_ dv _ dr dv. ду дг ду 
а= Т апа у = dt by thechain rule we have а= d re dr If Vo represents the —( 
we are led to the differential equation v w- - 7 with initial condition v = vj when г =R. 


DSol ve[ tv[r]v' [г] =- g R?/ r?, v[R] ==v0}, vir], г] 


= 2 2 i 2 2 
[ i | ageRregk +r v0 t ivt d = -rvO || 


Since the velocity is positive at the surface of Earth (r = А), and must remain positive for the duration of 
the flight, we reject the first solution. Furthermore, v(r) will remain positive if and only if —2gR + v? > 0, 
SO V 2 J2gR. 


JZgR /. {9 —>. 00609, R +3960} 

6.94498 

The escape velocity is 6.94498 mi/sec. 

According to N ewton's law of cooling, the temperature of an object changes at a rate proportional 
to the difference in temperature between the object and the outside medium. If an object whose 


temperature is 70°F is placed in a medium whose temperature is 20°, and is found to be 40? after 
3 minutes, what will its temperature be after 6 minutes? 


CHAPTER 11 Ordinary Differential Equations 


SOLUTION 

If u(t) represents the temperature of the object at time t, u- k(u— 20). The initial condition is 
u(0) - 70. 

solutionl=DSolve[{u'[t] -k(u[t]- 20), u[0] 705, u[t], t] 

{{ ult]>10(2+5e**) }} 

u[t_J=solutionl[[1, 1,211 

10(2+5 e**) 

We determine k using the information about the temperature 3 minutes later. Since we are using 


Solve for the transcendental function ех, Mathematica supplies a warning that may safely be 
ignored. 


solution22Sol ve[u[3] =-40, k] 


Solve: :ifun : Inverse functions are being used by Solve, so some solutions may not be found; 
use Reduce for complete solution information. >> 


The temperature 6 min later is 28°F. 


11.6 If air resistance is neglected, a freely falling body falls with an acceleration g, which is 
approximately 32.16 ft/sec?. If air resistance is considered, its motion is changed dramatically. 
If an object whose mass is 5 slugs is dropped from a height of 1000 ft, determine how long it 
will take to hit the ground (a) neglecting air resistance and (b) assuming that the force of air 
resistance is equal to the velocity of the object. Draw a graph of the height functions with and 
without air resistance. 


SOLUTION 


L et h(t) represent the height of the object at time t, v(t) its velocity, and a(t) its acceleration. R ecall that 
v(t) = h'(t) and a(t) = v'(t) = h"(t) and, by Newton's law, the sum of the external forces acting upon the 
object is equal to its mass times its acceleration: ma(t) = УЕ ' 


(a) If air resistance is neglected, the only force acting on the object is gravity, so ma(t) = —mg. We can divide 
by m and solve the differential equation h"(t) = —g with initial conditions h'(0) = 0, h(0) 2 1000. 
(Note: We take "up" to be the positive direction.) 


g=32.16; 

solution=DSolve[{h''[t] ==- 9, h'[0] =0, h[0] -=1000}, h[t], t]; 
heighti[t ]2solution[[1, 1, 2]] 

1000-16.08t? 

W hen the object reaches the ground its height will be 0. 

Solve[hei ght1[t] =-0, t] 

((t-7.886), (t 7.886)) 

It takes 7.886 sec to reach the ground. 


(b) If air resistance is taken into account, there is an external force acting upon the object in addition 
to gravity, equal to v(t). The differential equation becomes 


ma(t) = -mg- v(t) 
mh"(t) = -mg — h (t) 


or 
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with initial conditions as in (a). 


m=5; 0-32.16; 

solution=DSolve[{mh''[t] ==- mg- h'[t], h'[0] 20, h[ 0] 210005, [+], t]; 
height2[t ]2solution[[1, 1, 211 

e?2t*(-804.41804.e??*-160.8 e??*t) 

FindRoot[hei ght2[t] =0, tt, 10] 

(t10.6213] 

It now takes 10.6213 sec to reach the ground. 


<< PlotlLlegends" 
Plot[theight1[t], height2[t]}, tt, 0, 11}, 
PlotStyle >{Thick, Thin}, PlotRange —10, 1000}, 
AxesLabel —t"Time", "Height"), 
PlotLegend >{ "Without air resistance", "Air resistance included"), 
LegendSize—11,.5)] 


Hei; ht 
1000 


—— Witho: t air resistance 


— Air resistance incl: ded Time 


11.7 A baseball is hit with a velocity of 100 ft/sec at an angle of 30? with the horizontal. The height of 
the bat is 3 ft above the ground. Neglecting air and wind resistance, will it clear a 35-ft-high fence 
located 200 ft from home plate? (A ssume g - 32.16 ft/sec?.) 


SOLUTION 

g =32.16; hz 3; 02 30 Degree; v0 = 100; 

solution =DSolve[{x''[t]=0, y''[t]==- 9, х' [0] == м0 Cos[6], y' [0] --vO Sin[6], 
x[0] «0, y[0] =h}, {х[ї], y[t]}, t]; 

xsolution[t ]2solution[[1, 1, 211 

50 43 t 

ysolution[t ]2solution[[1, 2, 21] 

34+50t-16.08t? 


ParametricPlot[ {xsolution[t], ysolution[t]}, tt, 0, 3.2}, 
AxesLabel —t"x", "y"}] 


50 100 150 200 250 


11.8 
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From the graph it is questionable whether y > 35 when x = 200, so we compute precisely when the ball 
reaches the fence and then calculate its height at that instant. 


Solve[xsol uti on[t] ==200] 


(893) 


ysolution[t]/.% 
{32.7101} 
Since the height of the ball is less than 35 ft, the ball will not clear the fence. 


At what angle should the ball in the previous problem be hit so that it goes over the fence? 
SOLUTION 

First we want to get a relationship between y and Ө. 

Clear[ Ө] 

g=32; h=3; v0=100; 


solution=DSolve[{x''[t] 0, y''[t] ==- 9, x' [0] =v0Cos[ 9], 
y' [0] =v0Sin[ Ө], x[ 0] ==0, y[0] =h}, {x[t], y[t]}, t] 


{{x[t] > 100t Cos [0] , y[t] — 3- 16t? +100t Sin [0]}} 
horiz[t_]=solution[[1, 1, 211; 

vert[t ]25solution[[1, 2, 211 
3-16t?+100t Sin [0] 


temp = Solve[horiz[t] --200, t] < Solve for t as a function of Ө. 
{{t—2Sec [0] }} 

height[6]=vert[t] /. temp «< Define a function representing the height as a 
(3 - 64 Sec [0]? + 200 Tan [0] ) function of 6. 

NSol ve[hei ght[ODegree] --35, Ө] < Find Ө which gives a height of 35 ft. The value of 


0 is expressed in degrees. 


Solve::ifun : Inverse functions are being used by Solve, so some solutions may not be found; 


use Reduce for complete solution information. >> : This warning may be safely disregarded. : 


((0 -149.216), (05 -111.694), {0 530.7838}, (065 68.3065]) 


The negative values of 0 may be disregarded. The ball will go over the fence if 0 lies between 30.6357? 
and 68.4546*. We conclude by sketching these two trajectories. The vertical line represents the 35-ft 
fence located 200 ft from home plate. 

0230.6357 Degree; 

horiz[t_]=solution[[1, 1, 2]]; 

vert[t J=solution[[1, 2, 2]]; 

graphl=ParametricPlot[{horiz[t], vert[t]}, tt, 0, 63]; 


Ө= 68, 4546 Degree; 

horiz[t_]=solution[[1, 1, 2]]; 

vert[t J=solution[[1, 2, 2]]; 
graph2=ParametricPlot[{horiz[t], vert[t]}, {t, 0, 63]; 
graph3=Graphics[Line[{{200, 0}, (200, 3533]]; 
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Show[graphl, graph2, graph3, PlotRange >{-50, 150}, AxesLabel >{ "x", "y"}] 
y 
150+ 


100 - 


50r 


50 100 150 200 


-50 + 


IL9 A culture of microorganisms grows at a rate proportional to the amount present at any given time. 
If there are 500 bacteria present after one day and 1200 after two days, how many bacteria will be 
present after four days? 


SOLUTION 


The differential equation described by this situation is aN- kN , where N is the number of bacteria present 


in the culture апа К is a constant to be determined by the given information. The initial condition is N = 500 
whentz 1. 


solution =DSolve[{n'[t] =k n[t], n[1] == 500), n[t], t] 
{{n[t] > 500 e=} 

population[t ]=solution[[1, 1, 2]]; 

Sol ve[population[2] 21200, k] 


Solve::ifun : Inverse functions are being used by Solve, so some solutions may not be found; 
use Reduce for complete solution information. >> 


9) 


рори аі оп[ 4] /. k —5Log[12/5] 
6912 


11.10 The equation governing the amount of current, |, flowing through a simple resistance-inductance 
circuit when an EMF (voltage) E is applied is L opt RI =E. The units for E, I, and L are, 
respectively, volts, amperes, and henries. If R = 10 ohms, L = 1 henry, the ЕМЕ source is an 


alternating voltage whose equation is E (t) = 10 sin 5t, and the current is initially 4 amperes, find an 
expression for the current at time t and plot the graph of the current for the first 3 seconds. 


SOLUTION 
Note: Care must be taken not to use the conventional symbols E or! to represent voltage and current. 


r=10; | =1; e[t ] =10Sin[5t]; 
ѕо1 иёі оп = 0501 ме[ {1 i'[t] *ri[t] ze[t], i[0] = 4}, i[t], t] 


[fi [t] > - 2 e (-11+ e?* Сов [5t] - 2e" Sin [5 2) 


i[t ] =solution[[1, 1, 211 


11.11 


11.12 
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Plot[i[t], £t, 0, 3}, AxesLabel o{"t", "Current"}] 


Ci rrent 


If a spring with mass m attached at one end is suspended from its other end, it will come to rest in 
an equilibrium position. If the system is then perturbed by releasing the mass with an initial velocity 
of v, at a distance y, below its equilibrium position, its motion satisfies the differential equation 
2 

m he a -m ky = 0, y'(0) = v,, y(0) = y,. a is a damping constant (determined experimentally) 
due to friction and air resistance, and k is the spring constant given in Hooke's law. 

A mass of М slug is attached to a spring with a spring constant, k, of 6 Ib/ft. The mass is pulled 
downward from its equilibrium position 1 ft and then released. A ssuming a damping constant, a, of 
15, determine the motion of the mass and sketch its graph for the first 5 seconds. 


SOLUTION 

m=1/4; yO=-1; v020; a=1/2; k =6; 

solution zDSolve[£my''[t]*ay'[t]*ky[t] 0, y' [0] =v0, y[0] =y0}, y[t], t] 
мы > -5 е“ (23 Сов[ V23 «|» V23 sin[ 23 Ji 

height[t ]2solution[[1, 1, 2]]; 

Plot[height[t], £t, 0, 5}, AxesLabel -әс "t", "Height")] 


Hei; ht 
0.5 Е 


-1.0 


If a cable of uniform cross-section is suspended between two supports, the cable will sag 
forming a curve called a catenary. If we assume the lowest point on the curve to lie on the 
y-axis, a distance y, above the origin, the differential equation governing its shape can be shown 


2 2 
to be - - : 59) y(0) = у,, У(0)-0, where а isa positive constant dependent upon the 


physical properties of the cable. Find an equation of the catenary and sketch its graph. 
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SOLUTION 


sol uti on = DSol еу [х] Lay [х], y' [0] 40, y[0] x y[x], | 


Solve::ifun : Inverse functions are being used by Solve, so some solutions may not be found; 
use Reduce for complete solution information. >> 


ly [x]>a+y0-a созы 5), ly [х] ә -a * y0* a со) 


Since = y, > 0, the second solution applies. We take y; = a = 1 and plot its graph. 


catenary[x_]=solution[[2, 1, 2]]/. {а 1, y0 51}; 
Plot[catenary[x], tx, - 1, 1}, Ті ckstAutomati c, £0, 1, 2}}, РІ ої Аапде 0, 21] 


2 


ы у 


-10 -0.5 00 05 10 


11113 The logistic equation for population growth, t- ap — bp?, was discovered in the mid-nineteenth 


century by the biologist Pierre Verhulst. The constant b is generally small in comparison to a so that 
for small population size p the quadratic term in p will be negligible and the population will grow 
approximately exponentially. For large p, however, the quadratic term serves to slow down the rate of 
growth of the population. Solve the logistic equation and sketch the solution for a = 2, b = .05, and an 
initial population р, = 1 (thousand). Then determine the limiting value of the population as t — о. 


SOLUTION 


solutionzDSolve[tp' [t] ==ар[ +] - bp[t]?, p[0] -p0», p[t],t] 
Solve::ifun : Inverse functions are being used by Solve, so some solutions may not be found; 
use Reduce for complete solution information. >> 


ае? po 
ҚЫ ә a-bp0+be* sal 


population[t ]=solution[[1, 1, 2]]; 
Plot[population[t]/.{p0 1, a2, b—. 05}, {1,0,5}, PlotRange Al | J 


40} 


1 2 3 4 5 
Limit[population[t]/. (p0 1, а 2, b>. 05}, t =] 
40. 
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11.14 Solve the boundary value problem з 4л?у= 0, y(0) = y(1) = 0. 


SOLUTION 
DSolve[ Cy ' [x] +4 my[x] «0, y[0] «0, y[1] 202, y[x], x] 
(ty [x] 5 C[2] Sin[27 x] }} 


11.2 Numerical Solutions 

Although certain types of differential equations can be solved analytically in terms of elementary functions, 
the vast majority of equations that arise in applications cannot. Even if unique solutions can be shown to 
exist, it may only be possible to obtain numerical approximations. The command NDSol ve is designed 
specifically for this purpose. 


и №0501 ve[ equations y, «x, xmi п, xmax}] gives a numerical approximation to the solution, 
y, of the differential equation with initial conditions, equations, whose independent variable, x, satisfies 
xmin < x < xmax. 


Because NDSol ve yields a numerical solution to a differential equation, or system of differential equa- 
tions, an appropriate set of initial conditions that guarantees uniqueness must be specified. 


EXAMPLE 14 |n this example we consider the differential equation = X? + JJ y with initial condition y(0) = 1. 
Although this equation has a unique solution, it cannot be found in terms of elementary functions using DSol ve. 


DSol ve| {y' [x] =x? + ух], у[ 0] =1}, у[х], x | 


DSolvel {y: [x] = x? + Jy [x], y [0] = 1}, у[х], x] 


We can only obtain a numerical approximation to the solution of this equation. Because numerical tech- 
niques construct approximations at only a finite number of points, M athematica interpolates, i.e., constructs 
a smooth function passing through these points and returns the solution as anl nt er pol ati ngFunction 
object. 


EXAMPLE 15 


temp = NDSol уе (у x] x? УГО, у[01==1}, y, {x, 0, 11] 
{ {у > InterpolatingFunction[{{0.,1.}}, <>]}} 
The actual interpolating function can now be extracted from this expression: 


solution=temp[[1, 1,211 
InterpolatingFunction[{{0.,1.}}, <>] 


Only the domain of an I nterpolatingFunction object is printed explicitly. The remain- 
ing elements are represented as « >. To see the data used in its construction, enter the command 
Full Form[sol uti оп]. Using theinterpolated solution, solution, we can compute the solution at one 
or more points, and we can even plot it. One must be careful, however, to stay within the domain of the 
interpolating function or a warning will be generated. 


solution[0. 5] 
1.60643 
solution[1. 5] 


InterpolatingFunction::dmval : Input value {1.5} lies outside the range of data in the 
interpolating function. Extrapolation will be used. >> 


4.32575 < А п extrapolated value is not as reliable as an interpolated value, in terms of accuracy. 
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li 
Ta 


PI 


0.5 


st = Тарі е[ tx, solution[x]}, £x, 0, 1, . 121; 
bleForm[list, Tabl eSpacing 1, 51] 


Ly 


mL 1.10284 
m 1.21273 
42 1.33181 
.4 1.46228 
5 1.60643 
.6 1.76656 
sT 1.94504 
.8 2.14429 
.9 2.36672 

2.61479 


ot[solution[x], £x, 0, 1}, AxesOrigin 10,0)] 


Although the default settings for NDSol ve work nicely for most differential equations, M athematica 
provides some options that can be used to set parameters to handle abnormal situations. 


Worki ngPrecisi on isanoption that specifies how many digits of precision should be maintained 
internally in computation. The default (on most computers) is Wor ki ngPrecision —16. 
AccuracyGoal is an option that specifies how many significant digits of accuracy are to 
be obtained. The default is AccuracyGoal — Automatic, which is half the value of 
Worki ngPrecision.AccuracyGoal effectively specifies the absolute error allowed in a 
numerical procedure. 

PrecisionGoal isanoption that specifies how many effective digits of precision should be sought 
in the final result. The default isPrecisionGoal — Automatic, which is half the value of 
WorkingPrecision.PrecisionGoal effectively specifies the relative error allowed in a numeri- 
cal procedure. 

MaxSteps is the maximum number of steps to take in obtaining the solution. The default is 
MaxSteps — Automatic, which, for ordinary differential equations, is 10,000. 

MaxStepSi ze specifies the maximum size of each step in the iteration. 

Starti ngStepSi ze specifiestheinitial step size. ThedefaultisStarti ngStepSi ze —Automatic. 
(Mathematica automatically determines the best step size for the given equation.) 
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EXAMPLE 16 The differential equation 44. у-0 with initial conditions y(0) = 0, y'(0) = 1 has a unique solution 


y = sin x. We attempt to solve it for 0 < x < 10,000. 


equation  NDSolve[4y' ' [x] +y[x] z0, y[0] «0, y'[0] =1}, y, tx, 0, 100003] 


NDSolve::mxst : Maximum number of 10000 steps reached 
at the point x == 1422.780656413783^ 


{{уә InterpolatingFunction[{{0.,1422.78}},<>]}} 


Because of the wide interval, [0, 10000], over which the solution is to be obtained, more than 10,000 
Steps are necessary. 


equation = №0501 ме[ £y ' [x] * y[x] z0, y[0] «0, y'[0] =1}, y, 
£x, 0, 100005, MaxSteps —5100000] 


InterpolatingFunction[{{0.,10000.}},<>]}} 
Having obtained a solution, we check it for accuracy. The solution at x = (4k +1) should be 1. 


f =equation[[1, 1, 2]]; 
f [633 m 2] 
1.00002 


SOLVED PROBLEMS 


11,15 Solve the differential equation ЧУ + Туз = 0, у(0) =1,0<х<1, иѕіпд 0501 ve апа NDSol ve 
and compare the results. 


SOLUTION 
equationl = 501 еу [x] =1+ ур y[ 0] == i у[х], 1 


Solve::ifun : Inverse functions are being used by Solve, so some solutions may not be found; 
use Reduce for complete solution information. >> 


{free EN EE Sues ЕЗІ 


solutionl[x ] =equationl[[1, 1,211; 
equation2 - NDSol ve [[y [х] 1+ у[ х1, y[ 0] = bord, (x, 0, | 


{{y [x] > InterpolatingFunction[{{0., 1.}},<>] [x] }} 
solution2[x_]=equation2[[1, 1, 2]]; 
tabledata=Table[{x, solutionl[x], solution2[x]}, {x,0,1,.1}]; 


TableForm[tabledata, TableSpacing — t1, 15}, 
Tabl eHeadings — tNone, { "х", "analytic", "numerical"}}] 


X analytic numerical 
0 1 1. 

0.1 1.15817 1.15817 
0.2 1.33582 1.33582 
0.3 1.53895 1.53895 
0.4 1.77601 1.77601 
0.5 2.05935 2.05935 
0.6 2.40786 2.40786 
0.7 2.85196 2.85196 
0.8 3.44406 3.44406 
0.9 4.28301 4.28301 
1. 5.58016 5.58016 
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11,16 Plot the solution to the differential equation qe (at) ЧУ у= 0, у(0)-1 у(0)-0 for 
0<1< 10. 


SOLUTION 


solutionlzNDSolve[y''[t]*(y' [t] * 2? y' [t] +y[t] =0, y[0] =1, y' [0] 20), 
y[t], tt, 0, 10)] 


{{y[t] ә InterpolatingFunction[{{0.,10.}}, <>] [t] }} 
Plot[y[t] /. solution, {t, 0, 10}, PlotRange >All] 


1.0 


0.5 


-0.5 


2 
IL17 Plotthe (five) solutions to CE UM 03 ain у= 0 for0 «x < 30 using initial conditions y'(0) = 0, 


y(0)=-2,-1,0,1,and2, 9-75 


SOLUTION 
ро[ (solution = №501 ме[ іу ' [x] 40.3y' [x] * Sin[y[x11 20, y[0] zi, y' [0] 21), 
у[х], {x, 0, 301]; 
f[x ]*solution[[1,1,2]]; 


graph[i]sPlot[f[x], £x, 0, 30}, PlotStyle—Hue[.2i +. 5], 
PlotRange --ДІІҺ ti, -2, 23]; 


Show[graph[-2], graph[-1], graph[0], graph[1], graph[2]] 


When plotted in color, the five graphs are clearly 
distinguishable. 
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11.3 Laplace Transforms 

In this section we describe an ingenious method for solving differential equations. A Ithough the procedure 
can be used in a wide variety of problems, its real power lies in its ability to solve a differential equation 
whose "right hand side" is either discontinuous or zero except on a very short interval when its value is 
large. Because most of these types of problems arise within the context of time as the independent variable, 
we will express y and its derivatives as functions of t. We shall discuss Laplace transforms heuristically, 
and shall not concern ourselves with conditions sufficient for existence. 

If f is defined on the interval [0, ее), the Laplace transform of f(t) is defined 


L(tt0)- Је) at 


Its usefulness lies in the following properties, which we list without proof: 


£ {jst L{sinn(b)}= Pi 

Liu- 4 L£{cosh(bt)} = Soy 

L£{t}= a for positive integers n £ {ечат} = Се кегі 
Liet- L (e''cosh(bü] = 58-2. 

£ {sinb} = 2; Ltt} =s Lf F(t} — f(0) 

L {05000} = суз £t") = s2L4 F(t)} – sf (0) – f (0) 

2 [e''sin(bt)) = сое £ {af (t)+bg(t)}=a £ {ft)}+b L [ot] 


L£ [e?'cos(bt)] = IfF(s) = L {f(t)}, thenL [e'f(t)) =F (s-a) 


5-а 
(s-a)? +b? 


Mathematica computes the Laplace transform of a function, f, by the invocation of the command 
LaplaceTransform. 


m LaplaceTransform[f[ varl], varl, мад computes the Laplace transform of the function £, 
with independent variable уаг1, and expresses it as a function of var2. 


EXAMPLE 17 The following agree with the properties listed previously. 


LaplaceTransform[Exp[2t] Sin[3t], t, s] //ExpandDenomi nator 
— 3 
13-4в-в: 
LaplaceTransform[Exp[2t]Cos[3t], t, s] //ExpandDenomi nator 


-2+ 58 
13-45 +8? 


LaplaceTransform[af[t] +bg[t], t, s] 
aLaplaceTransform[f[t], t, s] +b LaplaceTransform[g[t], t, s] 
LaplaceTransform[f'[t], t, s] 

-f[0] +s LaplaceTransform[f[t], t, s] 
LaplaceTransform[f''[t], t, s] 

-sf[0] + s? LaplaceTransform[f [t], t, s] - Ё! [0] 
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The power of the Laplace transform is derived from the fact that there is a one-to-one correspondence 
between f(t) and £{f(t)}. This means that if £ {f(t)} is known, then f(t) is uniquely determined. If 
F(s)=L{f(t)}, then f(t) = £7{F (s)}. £ is called the inverse Laplace transform. 


m InverseLapl aceTransf orm Е[ маг], verl, varð computes the inverse Laplace transform 
of the function F, with independent variable уаг1, and expresses it as a function of var2. 
EXAMPLE 18 


| nverseLapl aceTransform| 1, 5, t| 


3t 


e 
InverseLapl aceTransfor пр s,t | Traditionally, one would factor the denominator, ex- 
53-9 pand into partial fractions, and find the inverse trans- 
formation separately for each term. M athematica 
Eee - Сов[ 4/3 t] - V3 sin[ V3 ]) does it all automatically. 


The next example illustrates how the Laplace transform can be used to solve a simple differential 
equation. 


2 
EXAMPLE 19 Solve the differential equation AE 2y=t?, y'(0)=1, у(0)-2. First we compute the 


Laplace transform of both sides of the equation. This can be done in one step. 


equationzy''[t]-3y'[t] * 2y[t] «t?; 
temp = LaplaceTransform[equation, t, s] 


2 LaplaceTransform[y[t], t, s]+ s? LaplaceTransform[y[t], t, s]- 
3 (в LaplaceTransform[y[t], t, s]-yI[0])-syI[0] -y' [0] = 2 
s 
Then we solve for the Laplace transform satisfying the given initial conditions. 


temp2 =Solve[temp, LaplaceTransform[y[t], t, s]]/. ty'[0] 1, y[0] 2) 


2-5s8°+2s' 
{{naptacetransform [y[t], t, s] > m emus 


Next we extract the transform as a function of s. 


temp3 = temp2[[1, 1, 2]] 
2-58 +2st 
5° (2-3s+s°) 


Finally, we compute the inverse Laplace transform to get the solution of the equation. 


InverseLaplaceTransform[temp3, s, t] 

1 t zt 2 

217446 -3e +6t+2t?) 

As indicated at the beginning of this section, Laplace transforms are the ideal tool to use when dealing 


with discontinuous “right-hand sides.” In this context we shall find it convenient to introduce the H eaviside 
theta function and the unit step function. 


m UnitStep[x] returns a value of Oif x <0 and 1 if x 2 0. 
в HeavisideTheta[x] returns a value of 0 if x <0 and 1 if x > 0. 


The unit step function, which we represent as u(t), offers a convenient way to define piecewise defined 
functions. 
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EXAMPLE 20 Plot the graph of g(x) = (5 UN к for0<x<2. 


g[x ] =UnitStep[1-x]x+UnitStep[x - 1] x}: 
Plot[g[x], £x, 0, 23] 


8r 


0.5 1.0 15 2.0 


It is easily shown that £{u(t-c)} = $- and, if F(s)=L{f(t)}, then L{u(t—c) f(t—c)}=e-“F (s). 
These properties make it convenient to solve differential equations involving piecewise continuous 
functions. 


lif O<t<l 


2 
EXAMPLE 21 Solve Фу _ 357 Loy z gtt), y(0) -у (0) -0 where at =f, Ets 


dt? dt 
Plot the solution for 0 € t x 2. 
Fort 20,g(t) -UnitStep[1-t]. 
temp zLaplaceTransform[y' ' [t] - 3y' [t] *2y[t] -UnitStep[1-t], t, s] 


2 LaplaceTransform[y[t]l,t,sS]-* s? LaplaceTransform[y[t],t,s]- 
1-Cosh[s]+Sinh[s] 


3(s LaplaceTransform[y[t],t,s]- y[0])-sy[0]-y' [0] = 8 
temp2=Solve[temp, LaplaceTransform[y[t], t, s]] /. {у [0] 0, y[0] 01 
1-Cosh[s]+Sinh[s] || 


Lapl T f t],t,s—7 
i aplaceTransform[y [t] в 3(2-38+8") 


temp3 =temp2[[1, 1,211 


1-Cosh[s]-« Sinh[s]-3s y [0] 
в(2-3в-в?) 
f[t ] =InverseLaplaceTransform[temp3, s, t] 


i (-1 + ety - (-1 + ey HeavisideTheta [-1 + c1 


Plot[f[t], tt, 0, 27] 


1r Observe that the solution is continuous, 
even though the equation involves a 


discontinuous function. 


л 
T 


0.5 1.0 15 2.0 
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In physical and biological applications, we are often led to differential equations whose right-hand side, 
f(t), isa function of an impulsive nature, that is, f(t) has zero value everywhere except over a short interval 
of time where its value is positive. 

The Dirac delta function is an idealized impulse function. Although not a true function in the classical 
sense, its validity is justified by the theory of distributions, developed by Laurent Schwartz in the mid- 
twentieth century. It is defined by the following pair of conditions: 


(Е) 20 if txt, 
f .9tt-t)dt zi 


An immediate consequence of the definition is the result that (^ f(t)o(t-t,)dt = f(t,). It follows, there- 
fore, that £ {8(t—t,)} = ['e-*8(t-t,) dt = e=, provided that t, > 0. Otherwise its value is 0. 


в" DiracDelta[t] returns s(t), the Dirac delta function, which satisfies (1) 20 if t z 0, [50а =1. 


EXAMPLE 22 
f ni racDelta[t]dt 
1 


NIS DiracDelta[t- 5] dt 
£ [5] 


EXAMPLE 23 


LaplaceTransform[DiracDelta[t - a], t, s] < Since Mathematica does not know 
e€?? HeavisideTheta [a] whether a is negative or non-negative, 


LaplaceTransform[DiracDelta[t - 3], t, s] HeavisideTheta [a] is included in the 
Laplace transform. 


e? в 


LaplaceTransform[DiracDelta[t +3], t, s] 
0 


Since we know the L aplace transform of the Dirac delta function, we can solve differential equations 
involving impulses much the same way as described in Example 19. The following example illustrates 
the method. 


2 
EXAMPLE 24 Find the solution of the differential equation 927—297 +у = 00-1), y(0) = y0) = 0 
equation zy''[t] - 2y' [t] *y[t] =DiracDelta[t - 1]; 


temp = LaplaceTransform[equation, t, s] 


LaplaceTransform[y[t],t,s]+s* LaplaceTransform[y[t],t,s]- 


2(sLaplaceTransform[y[t],t,s]-y[0])-sy[O]- y'[0]- e? 


temp2 = Solve[temp, LaplaceTransform[y[t], t, 5111. іу [0] —50, y[0] 01 
{{rapiacetranstorm ІУІЕІ,Е,81-> c 

temp3 =temp2[[1, 1, 2]] 

= 

1-25 + 5? 

solution[t ] = 1 пуегѕе[ арі асеТгапѕѓ ог т[ ќетр3, s, t] 

€t (-1 + t)HeavisideTheta [-1 + t] 
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Plot[solution[t], £t, 0, 2}, PlotStyle Thickness[.01]] 


25r 
20r 
155 
10; 


0.5) 


0.5 1.0 1.5 2.0 


Laplace transforms can be used to solve systems of differential equations. The technique is similar to 
that of a single equation, except that a different transform is defined for each dependent variable. Тһе next 
example illustrates the method for solving a system of two first-order equations. It generalizes in a natural 
way to larger and higher-order systems. 


dx 
= +y=t 
EXAMPLE 25 Solve the system dt dy with initial condition x(0) = 1, y (0) =-1. 
dt^ 
systemz (x' [t] *y[t] =t, 4x[t] *y' [t] =0}; 


temp = LaplaceTransform[system, t, s] 
{s LaplaceTransform[x[t],t,s]+ LaplaceTransform[y[t],t,s]- x[0] = — 


4 LaplaceTransform[x[t]l,t,s]- sLaplaceTransform[y[t]l,t,s]- y[0] = 0) 


temp2 = Solve[temp, tLaplaceTransform[x[t], t, s], 
LaplaceTransform[y[t], t, ЗІМІ. {x[0] 1, y[0] =>- 1} 

-1-в-а? 

s (-4 + 82)' 


{{taptacetranstorm [x[t], t, 5] > 


4-4 в? + 5° 
LaplaceTransform[y[t],t,s] > ete || 
temp3a=temp2[[1, 1, 211 


-1-8- 82 
5 (-4 + 52) 


temp3b=temp2[[1, 2, 211 
4+4 cg 
s? (-4 + 5?) 
І nverseLaplaceTransform[temp3a, s, t] 


1 3e% тез 
4 8 8 


І nverseLaplaceTransform[temp3b, s, t] 


зе?“ зе? 


4 4 +t 
The solution to the system is 
. 1,3e^* 7e" _3e% Te 
X Дүр С.У 4 4 +t 
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SOLVED PROBLEMS 


2 
11.18 Solvethe equation с e y - sint with initial conditions y(0) 2 0, у(0)- 2. 


SOLUTION 


equation zy''[t]*y[t] =Sin[t]; 
temp =LaplaceTransform[equation, t, s] 


LaplaceTransform[y[t],t,s]+ 


s? LaplaceTransform[y[t],t,s]-sy[0]-y' [0] = TEES 


temp2 = Solve[temp, LaplaceTransform[y[t], t, s]]/. ty'[0] 2, y[0] 20) 


342g 
{{taptacetransform [y[t1,t, s] (las) || 


temp3 =temp2[[1, 1, 2]]; 
I nverseLaplaceTransform[temp3, s, t] 


icc Cos [t] + 5 Sin[t]) 


2 
11.19 Solve 0 ed eyce, y(0) 23, y (0) = 2. 


SOLUTION 
equation=y''[t]+y'[t] *y[t] == Exp[t]; 
temp = LaplaceTransform[equati оп, t, s] 


LaplaceTransform[y[t],t,s]+sLaplaceTransform[y([t],t,s]+ 


s? LaplaceTransform[y[t],t,s]- у[01-ѕу[0]- у! [0] == A 


temp2 =Solve[temp, LaplaceTransform[y[t], t, s]]/. fy'[0] 2, y[0] 33} 


-4+25+3 52 }} 


((LaplaceTransform[y[t],t,s]— бл хө} eee 


temp3 =temp2[[1, 1, 2]]; 
I nverseLaplaceTransform[temp3, s, t] 


le e” +8 cos [ 335] «643 si [32*]) 


2 


t if0<t<1 


"SM" _ ЕТЕ Е 
11.20 Solve the equation dp ae ty = 90, y(0) = y (0) = 0, where у= ift>1 


dt 
the solution for 0 < x < 4. 
SOLUTION 


and plot 


equation = у'' [Е] - 2y' [t] *y[t] =t UnitStep[1- t] *t?UnitStep[t - 1]; 
temp = LaplaceTransform[equati оп, t, s] 


LaplaceTransform[y[t],t,s]+s* LaplaceTransform[y[t],t,s]- 


2(sLaplaceTransform[y[t],t,s]- у[0]) - sylol- у! [0] == 


e*(2+2s+s*) 1- Соѕ [5] - = Cosh[s]+Sinh[s] +s Sinh[s] 
ЕБ в? 
temp2 = Solve[temp, LaplaceTransform[y[t], t, s]] /. {у' [0] —0, y[0] 01 
{{LaplaceTransform[y[t], t, s] 


e€*(2-28g^«4es84s?-c^sCosh[s]-e ^s? Cosh[s] + esSinh[s] + езе? Sinh[s] y 
8%(1-2в-ө7) 
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temp3 = temp2[[1, 1, 2]] 


е%(2%2в-е%в + s*-e*%sCosh([s] –- ез? Cosh[s] +e*sSinh[s] +e*s* Sinh[s] am 
s((1-2s-s) 


f[t ] = InverseLaplaceTransform[temp3, s, t] 


e(2+e'(-2+t)+t)+(et(-114+3t)+e(4+3t+t?)) HeavisideTheta [-1 +t] 


e 
Plot[f[t], tt, 0, 41] 
n 
11.21 Solve the system 
arty=tsint 
dy х(0) = y(0) =0 
x+ qr = tcost 


SOLUTION 


system={x'[t] * y[t] t Sin[t], x[t]+y'[t] zt Cos[t]}; 
temp =LaplaceTransform[ system, t, s] 
(в LaplaceTransform[x[t], t, 5] + LaplaceTransform[y[t], t, s]- 


2s 
x [0] == азат” LaplaceTransform[x[tl, t, s]+ 
I 2 
в LaplaceTransform [y[t], t, s]- y [0] = PEU ) 


temp2 = Solve[temp, £LaplaceTransform[x[t], t, s], 
LaplaceTransform[y[t], t, ЗІНІ. {x[0] 0, y[0] 201 


1 
LaplaceTransform tl; t: Р 
ІІ БАБ ыз i ES (ES 
LaplaceTransform[y[t], t, s] - 3s-s ю 


(-1 + s?) (1 + s?) 
temp3a - temp2[[1, 1, 2]]; 
temp3b = temp2[[1, 2, 2]]; 
InverseLaplaceTransform[temp3a, s, t] //Simplify 


l(-e*«e*-28in [t] ) 
InverseLaplaceTransform[temp3b, s, t] //Simplify 
i(-e*-e'«2Cos [t] 4 t Sin[t]) 

The solution of the system is 

(—e-t + et — 2sint) 


(—e* -et + 2cost + 4tsint) 
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11.22 The equation governing the amount of current, |, flowing through a simple resistance-inductance 


circuitwhen an ЕМ Е (voltage) E isappliedis L at RI = E. TheunitsforE,!, and L are, respectively, 


volts, amperes, and henries. Suppose L = 1 and R = 10. If 1 voltis applied at time t= 0 and removed 
1 sec later, plot the current in the circuit during the first 2 seconds. 


SOLUTION 
e[t ] -UnitStep[1-t]; 
Plot[e[t], £t, 0, 2}, PlotStyle S Thickness[.01]]; 


OO 


0.8 - 
0.6 | 
Q4 L 
0.2 + 

05 1.0 1.5 2.0 
l =1; r=10; 
equation=li'[t]+ri[t]-=:e[t]; 


temp =LaplaceTransform[equation, t, s] 
-1[0]+10 LaplaceTransform[i[t]l, t, s]- 


s LaplaceTransform[i [t], t, s]= 1- Cosh [s] + Sinh [s] 
E 


temp2 = Solve[temp, LaplaceTransform[i[t], t, s]]/.i[0] 0 


1-cosh inh initi i 
LaplaceTransform[i[t], t, s> cosh [s] + Sinh [s] The initial current is assumed 
s(10+s) to be 0. 


temp3 =temp2[[1, 1, 2]] /] Expand 


1-Cosh[s]+Sinh[s] 
s(10+s) 


f[t ] =I nverseLaplaceTransform[temp3, s, t] 


i е-1°®(—-1+е!1°®+(е!°- е19%) HeavisideTheta[-1 + t]) 


Plot[f[t], £t, 0, 2», PlotStyle Thickness[.01], 
AxesLabel — ("Time", "Current")] 


Ci rrent 
0.10 + 


0.08 - 


0.06 - 


0.04 F 


0.02 


0.5 10 15 2.0 


CHAPTER 11 Ordinary Differential Equations 


11.23 A particle of mass m is attached to one end of a spring and allowed to come to rest in an equilibrium 
position. If an external force, f(t), is then applied to the particle, its motion is described by the 
equation mod a 9. ky = f(t), y(0) = 0, y(0) = 0 wherea is a damping constant and К is the spring's 
stiffness constant. Assuming m = 1, a = 2, k = 1, and f(t) = e+, describe the motion of the spring. Then 
determine the motion of the spring if an impulse of 1 Ib-sec is applied after 1 sec. Plot both graphs 
on one set of axes. 


SOLUTION 

мт= 1; а= 2; k=1; 

equation=my''[t]+ay'[t]+k y[t] == Ехр[- 1; (* without impulse +») 

temp =LaplaceTransform[ equation, t, s]; 

temp2 =Solve[temp, LaplaceTransform[y[t], t, s]]/. {у' [01 —[0, y[0] 30}; 
temp3 =temp2[[1, 1, 2]]; 

Print[ "Solution Without Impulse (dashed) "| 

f1[t ]zInverselLaplaceTransform[temp3, s, t] 

glzPlot[f1[t], {t, 0, 10}, PlotStyle —5Dashing[ 1.0131; 


equation z my''[t]*ay' [t] *ky[t] = 
Exp[-t] + DiracDelta[t - 1] (* with impulse *) 
temp = LaplaceTransform[equation, t, s]; 
temp2 =Solve[temp, LaplaceTransform[y[t], t, s]]/. ty'[0] 50, y[0] —50»; 
temp3 =temp2[[1, 1, 211; 
Print[ "Solution With Impulse (solid)"] 
f2[t ] =I nverseLaplaceTransform[temp3, s, t] 
g2=Plot[f2[t], 5%, 0, 103]; 
Solution Without Impulse (dashed) 
lt 


2 
28 t 


Solution With Impulse (solid) 


let t? + е1-°(-1 + t) UnitStep[-1 + t] 


Show[ g1, 92, PlotRange —AII] 


Linear Algebra 


12.1 Vectors and Matrices 
Vectors and matrices are represented as lists (Chapter 3) in Mathematica. A vector is a simple list and a 
matrix is a list of vectors. 

The elements of a vector or a matrix may be entered manually as a list or, more conveniently, by the 
use of built-in commands. 


Vectors 
= Table[expression, {i , n3] constructs an n-dimensional vector whose elements are the values 
of expression for i- 1, 2,3, E 
m Array[f, n] generates an n- dimensional vector whose elements аге £ [1], £ [2], . .. , £ [n]. 


Е is a function of one variable. 


M atrices 


= Table[expression, (i, m}, {j, n3] constructs an mx n matrix whose elements аге the values 
of expression for (i, j) = (1, 1),..., (m,n). 

= Array[f, «m, n3] generates an m x n matrix whose elements аге £ [1,1], ... , £ [m,n]. 
Е is a function of two variables. 

= Diagonal Matri x[list] creates a diagonal matrix whose diagonal entries are the elements of the 
one-dimensional array list. 

m ldentityMatrix[n] creates an n x n identity matrix. 


A Ithough matrices are represented as lists, they may be viewed as matrices by using theMatrixForm 
command. 


в Matri xForm[ list] prints the elements of the two-dimensional array list in a rectangular arrangement 
enclosed by brackets. If list is a simple (one-dimensional) array, Matri xF or m prints itas а column 
vector, i.e., an n x 1 matrix. 


Using / / Matri xForm to the right of list is equivalent to Matri хЕог т{ list] and is a bit more 
convenient. Care must be taken, however, notto use/ / Matri xFor m inthedefinition of the matrix. This 
command is for display purposes only. (See Problem 12.3.) 


EXAMPLE 1 
mz ((1, 1), (1, 2}}; 


m //MatrixForm 


63 
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Additionally, a matrix сап be introduced via the menu Insert = Table/Matrix = New ...(OnaPC, 
a matrix can also be inserted by right-clicking the mouse and selecting Insert Table/Matrix . . .) 
51 Create Table/Matrix 


Make: 
O Table (Grid[...]) 
©) Matrix (List of lists) 


Number of rows: | 3 


Number of columns: | 3 


oO Draw lines between rows 
C] Draw lines between columns 
огам frame 


ГІні with: о 
[ ]Fil diagonal: | 1 


This produces a grid as shown. Oncethe grid has been set up, you can conveniently enter the numbers, 
using the [TAB] key to go from cell to cell. Options for filling with 05 and 15 are particularly convenient 
for large, sparse matrices. 


EXAMPLE 2 А matrix is alist in Mathematica. Even if itis input via the Create Table/Matrix menu, it is repre- 
sented internally as a list of depth 2. 


1 2 3 
m= E 5 | < Matrix mis created using the Create Table/Matrix menu. 
7 8 9 


{{1, 2, 3}, {4, 5, 6}, {7, 8, 9}} 


EXAMPLE 3 A vector сап be represented as a simple list or as an n x 1 matrix. Either way, Matri x For mwill print 
it as а column vector. 


v={1, 2, 3, 4, 5}; 
v // MatrixForm 


1 
2 
3 
4 
5 
1 
2 A : 
Үзіз < у isinput using Create Table/Matrix. 
4 
5 
{{1}, {2}, {3}, {4}, {5}} < v is output as a list. 


ү [| Matri xForm 


ломи 
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EXAMPLE 4 То generate a vector whose entries аге the squares of the first five consecutive integers, we could 
simply enter them by hand. 

squares = (1, 4, 9, 16, 25) 

(1,4, 9, 16, 25) 

M ore conveniently, however, we can usetheTabl e orArray command. 

squares = Table[i?, £i, 51] 

(1,4, 9, 16, 25) 

ПЕ Дет 

squares = Аггау[#, 5] 

(1,4, 9, 16, 25} 

To view as a vector, 

MatrixForm[squares] or squares //Matri xForm 

1 


9 
16 
25 


EXAMPLE 5 We will construct a 5 x 7 matrix whose entries аге the sum of its row and column positions. For 
example, a; = 5. We could, of course, input the entries directly using the tool in Insert 2 Table/Matrix = New ..., 
but itis certainly preferable to use one of the standard M athematica commands. Here are two ways it can be 
done: 
matrix zTable[i +j, {1,5}, £j, 73] 
((2,3,4,5,6,7,8), (3,4, 5,6, 7, 8, 9}, (4, 5,6, 7, 8, 9, 10), (5,6, 7, 8, 9, 10, 11}, 
(6, 7, 8, 9, 10, 11, 12}} 
f[i ,j.1si tj; 
matrix = Аггау[#, (5, 7}] 
((2,3,4,5,6,7,8), {3, 4, 5, 6, 7, 8, 9), (4, 5,6, 7, 8, 9, 10), (5,6, 7, 8, 9, 10, 11}, 
(6, 7, 8, 9, 10, 11, 12}} 
Either way we can view the generated array as a matrix. 


matrix //MatrixForm 


234 5 6 7 8 
3.456 7 8 9 
4 56 7 8 9 10 
5 6 7 8 9 10 11 
6 7 8 9 10 11 12 


EXAMPLE 6 Submatrices can be constructed from a given matrix by careful implementation of [[ 1] (see the 
Part command, Chapter 3). First we construct a 5 x 5 matrix of consecutive integers. 


matrix =Partition[Range[25],5]; 
matrix // MatrixForm 


I 2 3 4 5 
6 7 8 9 10 
11 12 13 14 15 
16 17 18 19 20 
21 22 23 24 25 
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We can obtain a particular element of the matrix, say the element in row 3, column 4. 
matri x[[3, 4]] 

14 

If we want the entire fourth row, we extract the fourth sublist from matrix. 

matri x[[4]] 

(16, 17, 18, 19, 20] 

The entire fourth column can be obtained using the Al | directive. 

matri x[[AII, 4]] 

(4, 9, 14, 19, 24) 

We can obtain the submatrix whose elements are in rows 1, 3, and 5 and columns 2 and 4. 
matri x[[ €1, 3, 5}, 42, 41]] // Matri xForm 


2 4 
12 14 
22 24 


Or we can obtain the 3 x 5 matrix consisting of mat ri x with rows 2 and 4 deleted. 
matri x[[€1, 3, 5}, AII]] // MatrixForm 

1 2 3 4 5 

11 12 13 14 15 

21 22 23 24 25 


With careful use of the Take command (Chapter 3) we can even construct the submatrix of matrix consisting 
of those elements in rows 2 through 4 and columns 3 through 5. 


Take[matrix, {2, 4}, (3, 53] // MatrixForm 


8 9 10 
13 14 15 
18 19 20 


Although many matrices can be created using Tabl e огАггау, Mathematica offers some commands 
for constructing certain specialized matrices. 


ConstantArray [C , (m, n3] generates an m x n array, each element of which is с. 

Hil bert Matrix[n] creates ann x n Hilbert matrix 

Hil bert Matrix[m, n] creates an mx n Hilbert matrix. 

Hankel Matrix[n] creates a Hankel matrix whose first row (and column) is{1, 2, 3, ...,n} 
Hankel Matrix[n, list] creates a Hankel matrix whose first row (and column) is list. 


EXAMPLE 7 
ConstantArray[0, (3, 53] //MatrixForm 


Hilbert Matrix[5] //MatrixForm 


сін кін wje мін 

сік ule BIR c [P мін 
NR сім aje AIP wje 
œl. YIP ole uje e|. 
оін со]ҥ YIP olre oje 
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Hankel Matri x[ ta, b, c, d, e] //MatrixForm 
a b а e 


ооо с 
oo о. 
ооо and 
o ooo 
ooo 


SOLVED PROBLEMS 


12.1 Construct a ten-di mensional vector of powers of 2. 
SOLUTION 


powersof2=Table[2*, £k, 1, 101] 
(2, 4, 8, 16, 32, 64, 128, 256, 512, 1024) 
powersof2 // Matri xForm 


12.2 Construct a 5 x 5 matrix of random digits. 
SOLUTION 
Table[Randoml nteger[9], £i, 53, £j, 53] // MatrixForm 


Qoo B ми 
N со о OO м 
N о СО ою 
шо о мо о 
њ т № У A 


12.3 Whathappens if / / Matri xFormisincluded within the definition of a matrix? 
SOLUTION 


ml ={{1, 1), (1, 2)) / ] Matri xForm 
m2 = ((2, 3), (4, 5)) /] Matri xForm 


(: 2) + (2 | < We do not get the sum of the two matrices. 


124 


12.5 


CHAPTER 12 Гіпеағ Algebra 


M athematica cannot perform the indicated operation because m1 and m2 are not lists. Now we do it correctly. 
ml ((1, 1), (1, 23) 

m2 = ((2, 3}, (4, 5}} 

{{1, 1}, (2, 2}} 

{{2, 3}, {4, 5}} 


ml + m2 //MatrixForm 


(5 5) 


Construct a 10 x 10 diagonal matrix whose diagonal entries are the first ten primes. 
SOLUTION 


primelist = Array[Pri me, 10] Pri me isa built-in Mathematica function. 


(2, 3, 5, 7, 11, 13, 17, 19, 23, 29) 
Diagonal Matrix[primelist] // Matri xForm 


2000 0 0 0 0 0 0 
03 00 0 0 0 0 0 0 
0050 0 0 0 0 0 0 
0007 0 0 0 0 0 0 
000011 0 0 0 0 0 
00000 13 O 0 0 0 
0000 0 0 17 0 0 0 
0000 0 0 0 19 0 0 
0000 0 0 0 23 0 
0000 0 0 0 0 0 29 


Construct a 5 x 5 upper triangular matrix of 1s with 05 below the main diagonal. 
SOLUTION 


msTable[If[i «2j, 1, 0], £i, 5}, {j, 53]; 
т || MatrixForm 


оооо н 
ороон н 
CORRE 
онынны 
кшк ҥнҥ ҥы 


12.6 Construct а 7 x 7 tridiagonal matrix with 2s on the main diagonal, 1s on the diagonals adjacent to 


the main diagonal, and 05 elsewhere. 
SOLUTION 


mzTable[If[Abs[i -j]21, 1, If[i =j, 2, 01], ti, 1, 7}, tj, 1, 73); 
т || MatrixForm 


2100000 
1210000 
Q d. 2 1 0 0 9 
0012 100 
0001210 
000012 1 
0000012 
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127 LetM bethe6 x 6 matrix containing the integers 1 through 36. Construct a 3 x 3 matrix consisting 
of the elements in the odd rows and even columns of М. 


SOLUTION 
m=Table[6i +j, {1,0,5}, {j, 1, 63]; 
т // MatrixForm 

1 2 3 4 5 6 

7 8 9 10 11 12 

13 14 15 16 17 18 

19 20 21 22 23 24 

25 26 27 28 29 30 

31 32 33 34 35 36 


m[[ £1, 3, 5}, 42,4, ӨМІ // MatrixForm 
2 4 6 

14 16 18 

26 28 30 


12.2 Matrix Operations 

Since vectors and matrices are stored as lists in Mathematica, all list operations described in Chapter 3 
apply. In addition, there are some specialized commands that are applicable specifically to matrices. Since 
n-dimensional vectors can be considered to be n x 1 matrices, many of these commands apply to vectors as 
well. In the following descriptions, m, m1, and m2 denote matrices and v1 and v2 denote vectors. 


ml * m2 computes the sum of two matrices. 

ml - m2 computes the difference of two matrices. 

c m multiplies each element of m by the scalar c. 

ml. m2 computes the matrix product of m1 and m2. v1. v2 computes the dot product of v1 and v2. 
For matrices, the operation returns a list; for vectors, a single number is returned. 

m Cross[vl, v2] orvl xv2 returns the cross product of v1 and v2. (This applies to three- 
dimensional vectors only.) The cross product symbol, x, can be inserted into the calculation by 
typing (without spaces) the key sequence [ESC]c-r-o-s-s[ESC] . (Do not confuse this with the x on 
the Basic Math Input palette. Тһе latter represents simple multiplication.) 


EXAMPLE 8 First we generate two 3 x 3 "random" matrices as lists. 


ml =Table[Randominteger[9], fi, 1, 3}, {j, 1, 34] 
{{9, 4, 2}, {2, 9, 3}, {0, 1, 4}} 

m2 =Table[Randominteger[9], fi, 1, 3}, {j, 1, 34] 
{{2, 8, 1}, {8, 3, 4}, {6, 4, 0}} 

Now we look at them in matrix form. 


ml || MatrixForm 


9 4 2 
2 9 3 
0 14 


m2 || MatrixForm 


2 8 1 
8 3 4 
6 4 0 
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The next operation multiplies each element of m1 by 5. 
5 ml 
45 20 10 
10 45 14 
0 5 20 
Next compute their sum, difference, and product. 
ml + м2 || MatrixForm 


11 12 3 
10 12 7 
6 5 4 


ml - m2 || MatrixForm 


7 -4 1 
-6 6 -1 
-6 -3 4 


ml. m2 || Matri xForm 


62 92 25 
94 55 38 
32 19 4 


Care must be taken not to use * between the matrices to be multiplied, as this simply multiplies corresponding 
entries of the matrices, in accordance with list conventions. 


ml» m2 || Matri xForm 


18 32 2 
16 27 12 
0 4 0 


EXAMPLE 9 
vl={1, 2, 3}; 
v2 = {4, 5, 6}; 
vl.v2 


32 < Mathematica expresses the dot product as a number rather 


than as alist containing a single entry. 
Сгоѕ5[у1, v2] амы Шынын 


(-3,6,-3) 


М athematica makes no distinction between row and column vectors. T herefore, if v is an n-dimensional 
vector and m is an n x n matrix, both v.m and т. у are defined (although they generally yield differ- 
ent results). Furthermore, if v1 is an n x 1 matrix (row vector) and v2 isa 1 x n matrix (column vector), 
v1.v2 should be an n x n matrix, but Mathematica still computes a dot product. The command Out er 
can be used to compute the "outer" product of two vectors. 


= Outer[Ti mes, v1, v2] computes the outer product of v1 and v2. (Out er is much more 
general and can be used for other purposes. See the Documentation Center for additional 
information.) 
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EXAMPLE 10 
vl={1, 2, 3}; 
v2={4, 5, 6}; 


m={{1, 2, 2}, {2, 3, 3}, 143, 1, 23}; 
m//MatrixForm 


122 

а 4 3 

5 12 

m. vl 12 2\{зү m 

ііі, 17410 [ 3 | БЕЧ 
312/13) Ul 


vl.m 
122 14 
{14, 11, 14) (1 2 3) [ 3 ТЕ 
312 14 
Outer[Ti mes, v1, v2] // Matri xForm 
4 5 6 1 4 5 6 
8 10 12 2|(4 5 6)=|8 10 12 
12 15 18 3 12 15 18 
| nverse[ matrix] computes the inverse of matrix. 
Det [ matrix] computes the determinant of matrix. 
Transpose[ matrix] computes the transpose of matrix. 
Tr [ matrix] computes the trace of matrix. 
Matri xPower[ matrix, n] computes the nth power of matrix. 


from matrix by deleting row n - i +1 and column n - j +1. (matrix must be square.) 


Mi nors[ matrix] produces a matrix whose (i, j)th entry is the determinant of the submatrix obtained 


» Mi nors[ matrix, k] produces the matrix whose entries are the determinants of all possible k x k 


submatrices of matrix. (matrix need not be square.) 


EXAMPLE 11 


12 2 
ml=|2 3 34; 

3.45 

1 2 3 4 These, and subsequent examples, were created 
mz|5 6 7 8 |; using Create Table/Matrix in the Insert menu. 


9 10 11 12 


Inverse[ml] //Matri xForm 


Tr[ м1] 
9 
MatrixPower[ml, 3] // MatrixForm 


97 142 160 
151 221 249 


231 338 381 


Transpose[m2] //MatrixForm 


15 9 
2 6 10 
3 7 11 
4 8 12 
Tr[m2] 
18 


The matrix does not have to be square 
in order for its trace to be defined. 


mzTable[a[i, j], ti, 1, 3}, £j, 1, 33]; 
m || Matri xForm 


EXAMPLE 12 


a[1,1] 
a[2,1] 
a[3,1] 


a[1,2] 
a [2,2] 
а [3,2] 


a[1,3] 
a[2,3] 
a [3,3] 


Мі nors[m] / / Matri xForm 
-а [1,2]а [2,1]+а [1,1]а [2,2] 
-a [1,2]а [3,1]+а [1,1]a [3,2] 


-a [2,2]а [3 ,1]+а[2,1]а [3,2] 


-a [1,3]а [3,1]+а [1,1]a [3,3 


-a [2,3]а [3,1]+а[2,1]а [3,3] 
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-a[1,3]a[2,2]+a[1,2]a[2,3] 
-a[1,3]a[3,2]+a[1,2]a[3,3] 
-a[2,3]a[3,2]+a[2,2]a[3,3] 


SOLVED PROBLEMS 


12.8 The (Euclidean) norm of a vector is the square root of the sum of the squares of its components. 


Compute the norm of the vector (1, 3, 5, 7, 9, 11, 13, 15). 
SOLUTION 


v=Table[2k- 1, {k, 1, 8}] 
[1,3455 7,:9; 01, 135 15] 


normz- v.v 
24170 
12.9 Prove that the cross product of two vectors іп R? is orthogonal to each of the vectors that 
form it. 
SOLUTION 


Let u= (a, b, c) and v= (d, e, f) and compute w= ux v. Then verify that wLuand wLv. Two vectors аге 


orthogonal (1) if their dot product is 0. 


u = (ul, u2, u3}; 

v 2 (v1, v2, v3}; 

w=Cross[u, v] 

{- u3 v2 + u2 УЗ, u3 v1 - ul v3, -u2vl+ulv2} 
м.и // Expand 

0 

w.v [| Expand 

0 
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12.10 |t can be shown that the volume of a parallelepiped formed by u, v, апа wis |u • (vx w) |. Compute 


the volume of the parallelepiped formed by i+ 2j- 3k, 2i- 5j + k, and 3i j +2 К (The quantity 
u° (ух w) is called the scalar triple product.) 


SOLUTION 

u = (1, 2, -3}; 

ү = (2, -5, 1}; 

w={3, 1, 2}; 

volume =Abs[u.Cross[v, w]] 

64 

Let u= (u1, u2, u3), v = (v1, v2, v3), and w= (w1, w2, w3). Prove that the scalar triple product, 
ul u2 u3 

u. (мха = vl v2 v3. 
wl w2 w3 


SOLUTION 


u z (ul, u2, u3}; 

v={vl, v2, v3}; 

w - (w1, w2, w3}; 

matrix ={{ul, u2, u3}, (v1, v2, v3), {wl, м2, w3}}; 
Ihs =u.Cross[v, w] // Expand; 

rhs = Det[ matrix] // Expand; 

| hs zrhs 


True 


12-12 Construct the Hilbert matrix of order 6, and compute its determinant and its inverse. 


SOLUTION 


hil bert = Hil bertMatrix[6]; 
hilbert // Matri xForm 


l1 1 1 1 1 
2 3 4 5 6 
1 1 1 1 
2 3 4 5 6 7 
1 1 1 1 1 
34 5 6 7 8 
1 1 1 1 1 
4 5 6 7 8 9 
l 1 l 1 1 
5 6 7 8 9 10 
1 1 1 1 1 
7 8 9 10 11 


Det[hilbert] 


1 
186 313 420 339 200 000 
MatrixForm[Inverse[hilbert], TableAlignments Ri ght] 


36 -630 3360 -7560 7560 -2772 
-630 14 700 -88200 211680 -220500 83160 
3360 -88200 564480 -1411200 1512000 -582120 

-7560 211680 -1411200 3628800 -3969000 1552320 
7560 -220500 1512000 -3969000 4410000 -1746360 
-2772 83160 -582120 1552320 -1746360 698544 
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12.13 Construct a table that shows the determinant of the Hilbert matrices of orders 1 through 10. 
SOLUTION 


TableForm[Table[4k, Det[ HilbertMatrix[k]] // N}, £k, 1, 101] 
TableSpacing —>{1, 5}, TableHeadi ngs — { None, { "К", "determinant"))] 


k determinant 
1. 

2 0.0833333 

3 0.000462963 

4 1.65344х10-7 Since the determinants are nonzero, each Hilbert 
matrix is invertible. The Hilbert matrix is a classic 

5 3.7493х107% example of an ill-conditioned matrix. 

6 5.3673x1071 

7 4.8358 х10725 

8 2.73705х 10-23 

9 9.72023х10-°3 

10 2.16418х10-53 


12.14 Let M = . Compute lim M ^. (M is a stochastic matrix.) 


S Siw ЕЕ 
аз 5v Әјә 
Өк Sls Slt 


SOLUTION 


127 
т= |3 3 4; 
54 1 


Li mit[ Matri xPower[m, n], n e // Matri xForm 


в 
о 
о 
NIN NIN NJN 
л jw (ло 


2 1 2 2 0 
1215 Lett A=| 0 1-2 3 -ljand f(x)=x54+2x*-—x34x?-—3x+2. Compute f(A). 


SOLUTION 


1 2 3 
2 2 0 
a=| 0 1-2 3 -14; 
1 2 -3 
-2 1 2 
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12.16 


12.17 


т= Магі хРомег[а, 5] + 2 Matri хРомег[а, 4] - Магі хРомег [а, 3] + 
Магі хРомег [а, 2]- За + 2 1 епі ії у Маїгіх[ 5] ; 


Matri xForm[m, TableAli gnments Right] 


-496 -948 -189 1776 -1695 
-726 -862 288 714 -66 
-117 399 -103 -648 1233 
-174 324 315 -1216 1875 
1419 1068 -267 -702 -1069 


It can be shown that the complex number a + bi and the matrix т ) have the same algebraic 


properties. Compute (2 + 3i)? using matrices and verify using complex arithmetic that this value is 
correct. 


SOLUTION 


(3) 


Matri xPower[a, 5]; 


122 -597 . 
[| 122 ) < This represents the number 122 - 5971. 
(2431)? 

122-5971 
Compute the determinants 
1 1 1 1 
X, X; X4 X 
X хх 6 x2 
x x x | | "E 


for n = 2, 3, 4, and 5. Can you determine a pattern? These are known as Vandermonde determinants. 
SOLUTION 


тіп ]:sTable[x[i] ^j, £j, 0, n- 1}, £i, 1, nm]; 
m[2] //MatrixForm 


1 1 
x[1] x[2] 


m[3] //MatrixForm 


| 1 1 1 | 

x[1] x[2] xI3] 

x[1]? x[2]? x[3]? 

Det[m[2]] // Factor 

—-x[1]+x[2] 

Det[m[3]] // Factor 

- (x[1] - x[21) (x[1]-x[3]) (x[2]-x[3]) 

Det[m[4]] // Factor 

(x[1]-x[2]) (x[1]- x[31) (x[21- x[31) (x[1]-x[41) (x[21- x[41) (x[31- x[41) 
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Det[m[5]] // Factor 


(x[1]-x[2]) (x[1]-x[3]) (x[21- x [31) (x[11- x[41) 
(x[21- x [41) (x[31- x[41) (x[1]- x[51) (x[21- x[51) 
(x[3] - x [51) (x[41 - x[51) 


In general реє 12] = [ [(xti1-xt31). 


12.18 A theorem of linear algebra says that the determinant of a matrix is the sum of the products 
of each entry of any row or column by its corresponding cofactor. (The cofactor, C;; , of aj; is 
(-1)'* M;; where M;, is the corresponding minor.) Use this to compute the determinant of a 
randomly generated 5 x 5 matrix and verify its value. 


SOLUTION 

nz5; 

а = TableRandoml nteger[9], ti, 1, n}, tj, 1, п}]; 
a // MatrixForm 


очнь о m 
O о AUA 
Ф ы: о о Ul 
оны - Ul ш 
ON N М о о 


matri xof minors = Mi nors[al; 
Matri xForm[ matri xof mi nors, Tabl eAli gnments Ri ght] 


171 159 -174 -283 -216 


1350 1584 -270 140 48 
669 549 342 293  -78 
-561 -339 96 -143 -168 
3231 3333 -438 -497 246 


signs = Table[(- 1) (i +j), €i, 1, n}, tj, 1, n3]; 
cofactors =matrixofminors * signs; 
MatrixForm[ cofactors, TableAlignments Right] 


171 -159 -174 283 -216 
1350 -1584 270 -140 48 
669 -549 342 -293 -78 
561 -339 -96 -143 168 
-3231 3333 -438 497 246 


i23 (х ме expand using the third row ж) 


determi nant = Уа: i¢1,n-j+1)]*cofactors[[i,j]] 
ізі 

2082 

Det [a] 


2082 


The (і, j)th element of Minors [a] gives the determinant of the matrix 


obtained by deleting row n - i +1 апа column n - j +1. 
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1 1 
2 2 
12.19 Let х= |3 |. Compute x™x=[1 2 3 4 5] ; and ххт = [12345] 
4 
5 


5 


л шом 


SOLUTION 


x!xis the dot product of the vector x with itself. xxT, however, is a 5 x 5 matrix. 
X. X 

55 

Outer[Ti mes, x, x] // MatrixForm 


2 3 4 5 
4 6 8 10 
6 9 12 15 
8 12 16 20 
10 15 20 25 


OF t NH 


12.3 Matrix Manipulation 


M athematica offers a variety of matrix manipulation commands that are quite useful when working prob- 
lems in linear algebra. Since matrices are actually lists, many of the commands are the same as described 
in Chapter 3. 


= Joi n[ 1151, list2] combines the two lists 11551 and list2 into one list consisting of the elements from 
listl and from list2. For matrices, this has the effect of placing the rows of list2 under the rows of list1. 

= J oi n[ 1151, list2, n] joins the objects at level n in each list. If n = 2, this has the effect of placing 
the columns of list2 to the right of the columns of list1. 

и ArrayFlatten[{{my т„...}, {My т„...},... }] creates a single flattened matrix 
from a matrix of matrices т. All the matrices in the same row must have the same first dimension, 
and all the matrices in the same column must have the same second dimension. 


EXAMPLE 13 The following examples illustrate the commands described previously. To see their effects 
more clearly, the matrices are shown as lists. 


a b c 
ml=|d e f 
g h i 


{{а, р, с}, {d,e, £}, {g,h, i}} 


{{aa, bb, cc}, {dd, ee, ҒҒ), {gg, hh, ii}} 


J oi n[ ml, m2] 
{{a, b,c}, {d, е, f}, (g, h, 1}, (аа, bb, сс), (dd, ее, ££), (gg, hh, ii}} 


% || Matri xForm 
a 
d e f 
g 
aa bb cc 


dd ee ЕЕ 
gg hh ii 


Joi n[ ml, m2, 2] 
((a,b,c,aa,bb,ccj,(d,e,f,dd,ee,ff),(g,h,i,gg,hh,ii)) 


% || Matri xForm 


ArrayFlatten[{{ml, m2}, «m2, т1}}] 


a b c aa bb cc 
d e f dd ee ff 
g h i gg hh ii 
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{{a,b,c,aa, bb, cc}, (d,e,f,dd,ee, ff), (g, h, i,gg,hh,ii], 
(aa,bb,cc,a,b,c), {dd, ee, ff£,d,e,f),(gg,hh,ii,g,h,i)) 


% || MatrixForm 


The following commands can be used to form submatrices: 


a b с aa 
d e f dd 


Take[ matrix, 
Take[ matrix, 
Take[ matrix, 
Take[ matrix, 
matrix. 

Take[ matrix, 
Dr op[ matrix, 
Dr op[ matrix, 
Dr op[ matrix, 
Dr op[ matrix, 
Dr op[ matrix, 
Dr op[ matrix, 
Dr op[ matrix, 
Dr op[ matrix, 
deleted. 


Del ete[ matrix, n] deletes the nth row of matrix. 


n] returns the first n rows of matrix. 
- n] returns the last n rows of matrix. 
tm, n}] returns rows m through n of matrix. 


The arrangement of the lists indicates that 


the two blocks on top, left to right, are m1 
and m2. The bottom blocks are m2 and m1. 


Linear Algebra 


m, n] returns a submatrix containing rows 1 through m and columns 1 through n of 


(m, n}, £p, q}] returns rows m through n and colums p through q of matrix. 


n] returns matrix with its first n rows deleted. 
- n] returns matrix with its last n rows deleted. 
{n}] returns matrix with its nth row deleted. 


{- n1] returns matrix with the nth row from the end deleted. 
tm, пу] returns matrix with rows m through n deleted. 

m, n] returns matrix with rows 1 through m and columns 1 through n deleted. 
{т}, {n}] returns matrix with row m and column n deleted. 
tm, n}, <р, q}] returns matrix with rows m through n and columns p through а 


Del ete[ matrix, -n] deletes the nth from the last row of matrix. 
Del ete[ matrix, (ірі {P2}, 


EXAMPLE 14 


mzPartition[Range[20],5]; 
m //Matri xForm 


Take[m, 3] 


1 2 3 4 
6 7 8 9 
11 12 13 14 
16 17 18 19 


1 2 3 4 
6 7 8 9 


5 
10 
15 
20 


ІІ Matri xForm 


...}] deletes rows p, p, ... 
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Take[m, {1, 4}, {3, 5}] //MatrixForm 


3 4 5 
8 9 10 
13 14 15 
18 19 20 


Take[m, £2, 33] // MatrixForm 
6 7 8 9 10 
11 12 13 14 15 


Take[m, 3, £2, 33] //MatrixForm 


2 3 
7 8 
12. 13 


Take[m, {2, 3}, {2, 43] //MatrixForm 


7 8 9 
12 13 14 


SOLVED PROBLEMS 


12.20 Construct a 10 x 10 upper triangular matrix whose nonzero entries are random digits. Show that its 
determinant is equal to the product of the entries on its main diagonal. 


SOLUTION 

f[i , j. ]: Random[I nteger, {0,9}] /; i <j 
f[i ,j.1:-0/; i 2j 

m=Array[f, {10, 103]; 

m // Matri xForm 


3167064891 
0:17 51 9 9 0.5.8 
0 09.5. 6 9 5 3 3 3 5 
000157253 4 
00006 8 40 9 0 
000005 20 5 0 
0000003 5 5 7 
0000000 3 6 8 
000000003 7 
00000000 0 4 


det {ml = [[ mili, ill 
ігі 


True 


12.21 Constructa 9 x 9 block diagonal matrix with a 2 x 2 block of 2s, a3 x 3 block of 3s and a4 x 4 block 
of 4s. (A block diagonal matrix is a square partitioned matrix whose diagonal matrices are square 
and all others are zero matrices.) 


SOLUTION 
mà = Table[2, {2}, 125; 
m3 = Table[3, {3}, {3}]; 
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m4 = Table[4, (4), (4)]; 

227 = ConstantArray[0, (2, 73]; © z2715a2 х7 атау of zeros, etc. 
232 = ConstantArray[0, (3, 21]; 

234 = ConstantArray[0, (3, 41]; 

245 = ConstantArray[0, (4, 51]; 

top=ArrayFlatten[{{m2, 227,21; 

mi ddl e = ArrayFlatten[ 15232, m3, 23433]; 

bottomz ArrayFlatten[ (£245, m4}}]; 

ArrayFlatten[{{top}, {middle}, {bottom}}] //MatrixForm 


220000000 
220000000 
003330000 
003330000 
003330000 
00000444 4 
00000444 4 
000004444 
00000444 4 

ab cde 

f ghi j 
LetM=|k | m n o. 

раг st 

и VW X y 


Find the matrix P obtained from M by deleting its fourth row and third column. 


SOLUTION 
temp = CharacterRange[ "a", "y"]; < Generates a list of alphabet letters. 
m=Partition[temp, 5]; < Forms five sublists of five letters each. 


т || MatrixForm 


ар cde 
f dq kh i j 
k 1mn о 
ра r s t 
u v м x y 


Drop[m {4}, {3}] //MatrixForm 


а е 


і 


с жок Ф 
< на со 
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12.4 Linear Systems of Equations 

M athematica offers a number of ways to solve systems of linear equations. Sol ve, discussed in Chapter 6, 
offers one alternative, but it is somewhat clumsy and inefficient for use on large systems. In this section 
we discuss a number of other procedures for solving systems of linear equations. 


=» LinearSolve[a, b] produces vectors, x, such that a . x = b. 
m Li nearSolve[a] producesaLinearSolveFunction that can be used to solvea .x =b for 
different vectors b. 


Неге a is the matrix of coefficients of the unknowns, and b is the "right-hand side" of the linear system. 
If a is invertible, Li near Sol ve will produce a unique solution to the linear system. If a is singular, 
either no solution exists or there are an infinite number of solutions. 

If a system has a unique solution, M athematica returns the solution. If no solution exists, M athematica 
returns an error message. 
EXAMPLE 15 Thesystem 2X - y -z 27, X- 4y + 3222, 3x  2y +27 = 13 has a unique solution. 


Тһе system 2x c y -z2 7, х - 4y + 32= 2, 3x - Зу + 4z = 13 has no solution. 
2 1 1 
al=|1 -4 3) 
3 2 2 
2 1 1 
а2=|1 -4 3} 
3 -3 4 


b ={7, 2, 13}; 
Li nearSol ve[al, b] 
(1,2,3) 


LinearSol ve[a2, b] 
LinearSolve: : nosol : Linear equation encountered that has no solution. >> 
LinearSolve[((2,1,1), {1,-4, 3}, (3, -3, 43), 157), {2}, {13}}] 


If thesystem a . x = b hasan infinite number of solutions, the treatment is a bit more complicated. In this case, 
Mathematica returns one solution, known as a particular solution. The full set of solutions is constructed by add- 
ing to the particular solution the set of all solutions of the corresponding homogeneous system, а.х - 0. 

The set of all vectors, x, such that a . x = 0, is called the null space of a and is easily determined by 
the command Nul I Space. 


m Null Space[a] returns the basis vectors of the null space of a. 


Thenullity of a, the dimension of the null space of a, can be found by computing Lengt h[ Nul I Space[a]]. 
The rank of a may be computed аѕ п - Length[ Null Space[a]] where n represents the number of 
columns of a. 


EXAMPLE 16 2X *y *z-7,X- 4y + 3222, 3x- 3y - Az =9 has ап infinite number of solutions. 


2 1 1 
a=|1 -4 3) b ={7, 2, 9}; 
3 -3 4 


nullspacebasis = Null Space[a] 


((-7,5,9)) Because the null space contains a nonzero vector, 
5 there is no unique solution. 


particular = Li nearSol ve[a, b] 


|20, еі o} < This is a particular solution. 
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The full set of solutions to the system is of the form t«nullspacebasis + particular Where t is an 
arbitrary parameter. Н owever, to express as a single list, we must first flatten nullspacebasis. 


generalsolutionzt*Flatten[ nullspacebasis]+ particular 


10 1 
Е Tt, Ese, oc] 


Asacheck, we substitute our general solution back into the original system. 


a.generalsolution // Expand 
(7,2,9] 


The Gauss-J ordan method for solving the linear system a.x = b is based upon the reduction of the 
augmented matrix [a|b] into reduced row echelon form by a series of elementary row operations. The 
three basic elementary row operations are: 


1. interchanging two rows 
2. multiplying a row by a non-zero constant 
3. replacing one row by itself plus a multiple of another row 


Itis easily seen that elementary row operations have no effect upon the solution of the system. 


A matrix is said to be in reduced row echelon form if 


1. all zero rows are placed at the bottom of the matrix 

2. each leading nonzero entry is 1 (called a leading 1) 

3. each entry above and below a leading 1 is 0 

4. if two rows have leading 1s, the lower row has its leading 1 farther to the right 


To solve a linear system, we use elementary row operations to reduce the augmented matrix to reduced row 
echelon form. The solution(s) of the system, or the fact that no solution exists, may then be easily determined. 

Every student of linear algebra knows that row reduction is a time-consuming, tedious process that is 
highly prone to error. However, the M athematica command RowReduce quickly reduces any matrix to 
reduced row echelon form. 


= RowReduce[ matrix] reduces matrix to reduced row echelon form. 


EXAMPLE 17 Determine the reduced row echelon form of the 4 x 5 matrix whose general entry aj; = |i - j |. 


а zTable[Abs[i - j 1, £i, 1, 43, {j, 1, 51]; 
a || Matri xForm 


о мњо 
мнов 
нон 
о HB мо 
кю о № 


RowReduce[a] 


d: -90 09. 59r al 
01000 
00100 
000 11 


We now illustrate how row reduction can be used to solvea linear system. For comparison purposes we 
use the three examples previously considered in Examples 15 and 16. 
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EXAMPLE 18 


(а) 2x+y+z=7,xX- 4y+3z=2,3x+2y+2z=13 (unique solution) 
(b 2x+y+zZ=7,X- 4y+3z=2, 3x - 3y+4z=13 (no solution) 
(c) 2X ^y *z27,x- 4y - 3222, 3x- 3y c 4229 (infinite number of solutions) 


We find the augmented matrix for each of the three systems. 


211 7 211 7 2 1 1 7 
al=/1 -4 3 2 |; а2= |1 -4 3 2]; a32|1 -4 3 2]; 
3 2 2 13 3 -3 4 13 3-349 


RowReduce[al] //MatrixForm 


1» 30: 20r. 3E This reduced matrix, when interpreted as a system of 
0102 equations, reads: x = 1, y = 2,2 = 3. 
0013 


RowReduce[a2] //MatrixForm 


10 20 The bottom row reads 0x + Oy + 02 = 1, which, of course, 
0 i mcg is impossible. This contradiction (а row of Os and a final 1) 
ооо 1 reveals that no solution is possible. 


RowReduce[a3] //MatrixForm 


MEE NE The bottom row of 05 is not a contradiction. However, there 
Ü Uu eR x cannot be a unique solution. If we let z=t, an independent 
00 0 о parameter, the solution may be put into the form 


-10 7 -1,3 ES 
K=3 2% у-3%9% z=t 


Note: Although the solution looks slightly different than the solution obtained previously, it is equivalent in the 
sense that it describes precisely the same solution set. 


Another popular method, LU decomposition, is useful, particularly if you have many systems, all having 
the same coefficient matrix. The idea behind the method is simple. 

If A is a square matrix, it may be possible to factor A=LU where L is lower triangular with 1s on the main 
diagonal апа U is upper triangular. The system Ax = bthen reads (LU )x= b, which can be written L(U x) = b. 
If welet y= U x we сап solve у= bfor y. Once we have determined y, we solve U x= yfor x 

Even though the solution of asystem by LU decomposition involves solving two systems of equations, 
each involves a triangular matrix so the computation is efficient. 

Thus, there are two steps to solving a system of equations by LU decomposition: factorization 
and back substitution. The corresponding Mathematica commands аге LUDecompositi on and 
LUBackSubstitution. 


m LUDecompositi on[ matrix] finds the LU decomposition of matrix. 
m LUBackSubstituti on[ data, b] uses the output of LUDecomposi ti on[ matrix] tosolvethe 
system matrix.x=b. 


The output of LUDecompositi on consists of three parts: (1) the matrices L and U "packed" as a 
single matrix, (2) a permutation vector, and (3) the L^ condition number of the matrix. The output of 
LUDecomposi ti on, data, is fed into LUBackSubstitution to solve the system. 

The permutation vector rearranges the rows in order to ensure a maximum degree of numerical stability. 
The condition number will be of no concern to us in this chapter. 


LUDecomposition andLUBackSubsti tution cannot be used on systems that possess an infiite 
number of solutions. 
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EXAMPLE 19 То solvethe system 2х +у+2 = 7, х– 4у + 37 = 2, 3X - 2y - 27 213 using LU decomposition, we 
must first obtain the matrix factorization of the coefficient matrix. 


2 1 1 
a=/1 -4 3} b ={7, 2, 13}; 
3 2 2 


data=LUDecomposition[a] 


Цаа, -а,з), (2,9,5), o2, Mh (2,1,2). 


LUBackSubstitution[data, b] 
12,22 32 


The next two examples illustrate the structure of data. 


EXAMPLE 20 


2 3 4 
m=|4 11 14}: 
6 29 43 


{lu, p, cond} = LUDecompositi on[ m] 
{{{2, 3,41, (2, 5, 6}, (3, 4, 7131, (1,2, 3}, 1} 


In this example, no rearrangement of the rows was performed because the permutation vector, p, is 
{1, 2, 3). 


The first part of LUDecompositi on[ m] is given in a "packed" format. Since LU is known to be 


10 0)|íx x x 
of the form f 1 | t А J only nine entries (represented by x) need be specified. The first part of 
X X X 


LUDecompositi оп[ т] specifies these nine numbers as a single matrix. 
lu ІІ MatrixForm 


u // 

23 4 
25 6 
з 4 7 


The numbers, although combined into one matrix, аге in their correct positions. 


10 0 324 
1= |2 10| and u= 5 6 
341 0 7 


о о N 


ЕХАМРІЕ 21 


2 1 1 
m=|1 -4 3) 
3 2 2 


{lu, p, cond) =LUDecomposition[ m] 


Цоо, -а, з), (2,9,5), 38 Bh ai] 


lu ІІ MatrixForm 
1 -4 3 
2 9 -5 
14 7 
3 9 


9 
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If we proceed as in the previous example, we would be tempted to say that 


1 0 0 1 -4 3 
1=|2 1 0 апа п-|0 9 -5 
14 7 
сады. оо 5 


However, multiplying! by и does not give back the original matrix: 


l.u //MatrixForm 


The permutation vector, p = (2, 1, 3}, indicates that the rows of the matrix have been interchanged. Indeed rows 1 
and 2 have been switched. If we permute the rows of 1, we should get back our original matrix upon multiplication by u. 


2 1 0 1-4 3 
[=|1 0 Of; 1-10 9-5) 
14 7 
35-1 0 0 g 


l.u ІІ MatrixForm 


2. Mb. l 
1 -4 3 
3 2 2 


SOLVED PROBLEMS 


12.23 Describe the set of vectors, S, spanned by (1, 2, 1, 2, 1), (1, 3, 2, 4, 2), and (1, 4, 3, 6, 3). 
SOLUTION 
a={1,2,1,2, 1}; 
b={1, 3,2,4,2}; 
c={1, 4, 3, 6, 3}; 


п= {а 0, ра 
m // Магі хЕогт : Form a matrix, m, using the given vectors as ! 
‚ rows. The row space of m is the space spanned ; 

12121 * by a, b, and c. Then reduce the matrix to : 
13242 ı reduced row echelon form. The non-zero rows 1 
14363 ғ form a basis for the row space. Every vector in : 


‚ Sisa linear combination of its basis vectors. 1 
rref = RowReduce[m]; шиа реа 


rref || Matri xForm 


I (0-1. =2 = 
01 1 2 1 
оо 0 0 0 


rref[[1]] 

{1, 0, -1, -2, -1} 

rref[[2]] 

[0; ллу 2p} 

s*rref[[1]]*t* rref[[2]] 

{s,t, -st+t, -2s+2t,-s+t} < Every vector in S is of this form. 
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12.24 A theorem of linear algebra says that every vector in the row space of A is orthogonal to every 
vector in the null space of A. Verify this result for 


12 3 4 5 
6 7 8 9 10 
А-|1 12 13 14 15 
16 17 18 19 20 
21 22 23 24 25 


SOLUTION 

It suffices to show that each basis vector of the row space is orthogonal to every basis vector in the null space. 
а -Partition[Range[25], 5]; 

a || MatrixForm 


L 2 3 4 5 
6 7 8 9 10 
11 12 13 14 15 
16 17 18 19 20 
21 22 23 24 25 


rowspacebasis = RowReduce[a]; 
rowspacebasis // Matri xForm 


1 0 =l -2 -3 
01 2 3 4 
оо 0 0 0 
0o00 0 0 0 ern a a ae ra AEA 
00 0 O 0 : To show that each vector in rowspacebasis is! 


1 orthogonal to every vector in nullspacebasis, | 
nullspacebasis = Null Space[a]; : we must show that every dot product is 0. T he easiest : 


; ; 1 way isto multiply rowspacebasis by thetranspose } 
шыта ыы ! of nullspacebasis. The bottom three rows of 
3 -4 00 1 ' zeros may be ignored. 

2 -3 0 1 0 

1 -2 1 0 0 


rowspacebasis.Transpose[nullspacebasis] // MatrixForm 


о O O суо 
CX QOO OQ. oO 
O O O GOO 


12.25 Construct a 5 x 5 matrix of random digits, a, and a 5 x 1 matrix of random digits, Б, and solve the 
linear system ax = b using Li near Sol ve. Then verify that your solution is correct. 


SOLUTION 


а = Table[Randoml nteger[9], ti, 1, 5}, £j, 1, 53]; 
a // MatrixForm 


09 502 
7 7 5 9 3 
066 26 
5 8 43 9 
3.08 1 5 
Det[a] == 


False < Since the determinant = 0, the system has a unique solution. 
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b zTable[Randoml nteger[9], ti, 1, 53]; 
b // MatrixForm 


к сомы 


x -LinearSol ve[a, b] 


| 58 65 187 111 142) 
2177 651! 651! 434' 186 


а. X = 
True 
1 2 3 14 9 10 
12.26 Solve the system Ax= bwhere А-|2 -1 4|andbz|12, |17 |, and | 22 |. 
3 -4 5 
SOLUTION 15 ШЕ ae 
1 2 3 
-|2-1 4) 
3 -4 6 
f =LinearSolve[a] 
LinearSolveFunction[{3,3}, <>] 
f[ £14, 12, 13}] 
(1,2,3) 
Ң (9, 17, 28}] 
{2, -1, 3} 
f[{10, 22, 38}] 
(2,-2, 4} 
W+2x+3y+3z= 9 
12.27 Find the general solution of the system J 2W+ X+2y+5z= 10 
2w+2x+ y+2z= 7 
SOLUTION Qw- X-3y4 22-1 
12 3 3 
2 1 2 5 
а=), у 2f bz(9,10,7,- 1}; 
2 -1 -3 1 
Det[a] = < Since the determinant is 0, we anticipate either 
True no solution or an infinite number of solutions. 
nullspacebasis = Null Space[a] < Since the null space contains a non-zero vector, 
{{-13, 11,519, 7) there will be an infinite number of solutions. 


particular = LinearSol ve[a, b] 


20 4 17 
(22, -8, т o} 
generalsolution=t * Flatten[nullspacebasis] + particular 


20 4 17 
| 7 131; 7+116, 7 10t,7t] 
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М--2Х--3у-32- 9 
3w + 4x -4y + 52-16 
2w+2xX+ y+2z= 7 
4w + 6x + 7у + 82 = 25 


12.28 Find the general solution of the system 


SOLUTION 
1 2 3 3 
.13 4 4 5| = қ 
а=) 2 тэр bz(0, 16,7, 25}; 
4618 
Det[a] = 
True 


null spacebasis = Null Space[a] 
{{1, -2, 0, 1}, (4, -5, 2, 0]] 
particular =LinearSolve[a, b] 


11 
| 2, 2 ,0, 0} 


generalsolution=s * nullspacebasis[[1]]+ 
t * nullspacebasis[[2]] + particular 


{-2+s+4t,42-2s-st,2t,s} 


12.29 LetA bea7 x 7 tridiagonal matrix having 3s on the main diagonal and - 1s on the diagonals adjacent 
to the main diagonal. Let e, be a 7-dimensional vector having 1 in theith position and Os elsewhere. 


SolveAxze,iz]1,...,7. 
SOLUTION 
а -Table[If[Abs[i -j]=1, - 1, I ffi =j, 3, 01], £i, 1, 73, tj, 1, 73]; 


a || Matri xForm 


et? Де, з= 


= ооо 


ооооо 


0 
0 0 
0 0 О =1 3 =l 
0 0 


ludata = LUDecompositi оп[а]; 
b zTable[KroneckerDelta[i, j], €i, 1, 7), {j, 1, 73]; 
LUBackSubstitution[ludata, b] // TableForm 


371 48 55 1 8 1 1 
987 329 987 47 987 329 987 
48 144 55 3 8 3 1 
329 329 329 47 329 329 329 
55 55 440 8 64 8 8 
987 329 987 47 987 329 987 
1 3 8 21 8 3 1 
47 47 47 47 47 47 47 
8 8 64 8 440 55 55 
987 329 987 47 987 329 987 
1 3 8 3 55 144 48 
329 329 329 47 329 329 329 
1 1 8 1 55 48 377 


987 329 987 47 987 329 987 


The ith column of the table represents the solution of Ax=e. 
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12.5 Orthogonality 
Two vectors are orthogonal if their inner product is 0. Orthogonal vectors possess useful properties that 
make working with them convenient. For example, if uand vare orthogonal, they satisfy the (generalized) 
Theorem of Pythagoras: || u+ v|? = || и |: + || v |P. 

Orthogonality also allows usto introduce the concept of projection. 
In R? itis easy to visualize what projection means. If a= PQ and 
b= PR are two vectors with the same initial point P, then if S is the Q 


— 
foot of the perpendicular from R to PQ, the projection of bonto ais 5 
Р 


5 | | 
the vector PS. This vector is often represented as proj Б 
The projection vector can be computed using the M athematica command Pr oj ection. 


m Projection[vectorl, vector2] returns the orthogonal projection of vector1 onto vector2. 


EXAMPLE 22 Compute the projection of (1, 2, 3) onto (-2, 3, - 1). 


а= {1, 2, 3}; 
b={-2, 3, - 1}; 
Projection[a, b] 


E ER -& 
7'14' 14 
The concept of orthogonality depends upon the definition of inner product for the space under consider- 


ation. By default, M athematica uses the Euclidean inner product (dot product) in linear algebra commands. 
However, this can be changed by including an alternate definition in the third argument of Pr oj ection. 


m Projection[vectorl, vector2, f] returns the orthogonal projection of vector1 onto vector2 with 
respect to an inner product defined by f. 


It сап be shown that if c1, c2, and c3 are positive real numbers, then 
«a, b>= C,a,b,+ C,a,b,+ с;а0; 


defines an inner product on R?. To compute the orthogonal projection of (1, 2, 3) onto (-2, 3, - 1) using this 
inner product, we must define an appropriate function describing the inner product. To do this, we compute 
аж band then take the dot product with с = (cy, Cz, Сз). 


EXAMPLE 23 Compute the projection of (1, 2, 3) onto (-2, 3, - 1) using the inner product «a Б> = 2a,b, + 3a,b,+ 4а;0,. 


а= {1, 2, 3}; 
b = {-2, 3, - 1}; 
f[a , b_]:={2, 3, 4}. (a * b) «— Note: It is important to use := here. 


Projection[a, b, f] 
2 2 -&l 
39' 13' 39 


EXAMPLE 24 А useful inner product often used in function spaces is «f, g> = JÈ fO) gax. Using this inner 
product, compute the projection of x? on x? + 1. 

а=х?; 

р=х? +1; 

f[pl , p2 ]:- ИТ р2 dx 

Ргој есі оп[а, b, f] 


o 3 
240 *x) 
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A finite dimensional vector space, by definition, has a finite basis. However, except for the trivial vector 
space that contains only the zero vector, an infinite number of different bases are possible. 

The most convenient basis for any vector space is an orthonormal basis. T he Gram-Schmidt orthogo- 
nalization process provides a "recipe" for converting any basis into an orthonormal basis. 


= Normal i ze[ vector] converts vector into a unit vector. 

m Normal i ze[ vector, f ] converts vector into a unit vector with respect to the norm function £. 

m Orthogonal і 2е[ vectorlist] uses the Gram-Schmidt method to produce an orthonormal set of 
vectors whose span is vectorlist. 

= Orthogonal i ze[ vectorlist, f ] produces an orthonormal set of vectors with respect to the inner 


product defined by £. 
в Norm[v] returns the Euclidean norm of v. || v|| = XE 


EXAMPLE 25 То normalize (3, 4, 12) with respect to the Euclidean inner product, we type 
Normalize[ €3, 4, 121] 


Е 4 i 

2712712 

То normalize with respect to the norm || v|| = ,2у2--3у2--4у2, we define 
flv_]= 40,3, 4). (v * v) 


Nor mali ze[ (3, 4, 12}, f] 


3 2 6 
(ЕҢ ЖЕН TEN 


EXAMPLE 26 Find an orthonormal basis for the space spanned by (1, 1, 1, 0, 0), (0, 1, 1, 1, 0), and (0, 0, 1, 1, 1), 
and verify that the result is correct. 


V7 (0), 1, 1, 0, 0), (0, 1, 1, 1, 0}, (0, 0, 1, 1, 1}}; 
w=Orthogonalize[v] 


2 
ERR EE ЖА т БЕРЕН 


То verify that the result is correct, we compute six dot products. 


wEE1]]. wEE 11] 
1 
wEE2] ]: wl 2] ] 
1 


wEEL31 1. wEE 31] D 
1 22222. _! 
wEE 111. wEE 21] 

0 

wEL 111. wEE 31] 

0 


w[[2]].w[[3]] TE 
0 АН аланы Шын Айы igi _! 
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SOLVED PROBLEMS 


12.30 Compute the norm of the vector (1, 2, 3, 4, 5) with respect to (a) the Euclidean inner product and 
(b) <и, v» = 2U,V, + 3U5V> + U3V3 + Зил, + 2U5Vs. 


SOLUTION 

(а) u = {1,2,3,4,5}; (0) u = {1,2,3,4,5}; 
norm = Ju. с = (2,3,1,3,2); 
\/55 norm = Jc.(u* и) 


11 


12.31 Find the projection of the vector (3, 4, 5) onto each of the coordinate axes. 

SOLUTION 

v={3, 4, 5}; 

Projection[v, {1, 0, 0+] 

{3,0,0} 

Projection[v, {0, 1, 0+] 

{0,4,0} 

Projection[v, {0, 0, 1}] 

{0,0,5} 


12.32 Find a unit vector having the same direction as (1, -2, 2, -3). 


SOLUTION 
Normalize[t1, - 2, 2, -3)] 


12.33 |f a= (1, 2, 3) and b= (1, -2, 5), compute the length of the vector vshown in the diagram. 
b 


"s те 


SOLUTION 

Since b+ м = proj4b it follows that v = proj,b- b. 
a={1, 2, 3}; bz (1, - 2, 5}; 

v =Projection[b, a]- b; 

Nor m[ v] 


138 


7 


12:34 Find an orthonormal basis for the space spanned by (1, 2, 1, 3), (2, 2, 2, 2), (1, - 1, 1, - 1), and (3, 4, 3, 5). 
SOLUTION 
vl={1, 2, 1, 3}; 
v2 ={2, 2, 2, 2}; 
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v3 = {1, -1, 1, - 1}; 
v4={3, 4, 3, 5}; 
v={vl, v2, v3, v4}; 
w=Orthogonalize[v] 


1 2 1 E 8 1 8 213 

(15 7/15/15 Ұ517|,/165 ,/165 V165" 4Ч55|! 
1 Р 21 2 (0,0,0,0) + Thesetv is linearly dependent, so Ort hogonalize ! 
22! 117,/227М11|! Mu : can only produce three basis vectors. ( 0, 0, 0, 0) + 


' can be disregarded. 


12.35 Construct an orthonormal basis for P., the set of all polynomials of degree x 5 with respect to the 
inner product «p, q» — Гродадж. 


SOLUTION 


One basis for Р, is the set v= (1, x, X?, X3, x^, x5). They comprise a linearly independent set that 
spans Р;. 
v={1, x, x7, х? x4, xP}; 


1 
Ёр. = ера ax 


Orthogonalize[v,f] //Simplify 
(1, 43 (-1+2х), 4/5(1-6х+6х2), 4/7 (-1+12х-30х2 +20х?), 


3 (1-20x+90x? -140x? +70х*), V11 (-1+30х-210х? +560x? -630x* +252x°) } 


12.6 Eigenvalues and Eigenvectors 


à is said to be an eigenvalue of a square matrix, A, if there exists a non-zero vector, x, such that Ах= Ax 
As powerful as the eigenvalue concept is in linear algebra, the computation of eigenvalues and their cor- 
responding eigenvectors can be extremely difficult if the matrix is large. 

One way to determine the eigenvalues of a matrix is to solve the characteristic equation det(A - Al) = 0. 
Once the eigenvalues are determined, the eigenvectors can be found by solving a homogeneous linear 
system. 


EXAMPLE 27 


4 1 -1 
а=|2 5 -2 |; 
1 2 2 


length=Length[a]; 

Solve[Det[a - AldentityMatrix[length]]==0, Л] 

(0,23), {А ә 3}, {А > 5H 

The eigenvalues are 3 (with multiplicity 2) and 5. To find the eigenvectors, we look at the null space 
of A - М: 

Null Space[a-3ldentityMatrix[length]] 

{{1, 0, 1}, {-1, 1, o}} 

Null Space[a- 5ldentityMatrix[length]] 

{{1, 2, 1}} 
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Of course, as опе might expect, M athematica contains commands that automatically compute eigenvalues, 
eigenvectors, and some other related items. 
m CharacteristicPol ynomi al [ matrix, var] returns the characteristic polynomial of matrix 
expressed in terms of variable var. 
в Ei genval ues[ matrix] returns a list of the eigenvalues of matrix. 
в Ei genvectors[ matrix] returns a list of the eigenvectors of matrix. 
m Ei gensystem[ matrix] returns a list of the form (eigenvalues, eigenvectors}. 


EXAMPLE 28 


CharacteristicPolynomial[a, x] 

45 - 39x + 11x? - х? 

Ei genval ues[a] 

(5,3,3) 

Ei genvectors[a] 

{{1,2,1}, {1,0,1}, {-1,1, 0}} 

Ei gensystem[a] 

{{5,3,3},{{1,2,1},{1, 0,1}, {-1,1, 0}}} 

If the entries of the matrix are expressed exactly, i.e., in non-decimal form, M athematica tries to deter- 
mine the eigenvalues and eigenvectors exactly. If any of the entries of the matrix are expressed in decimal 
form, Mathematica returns decimal approximations. А Iternatively, опе can use МІ matrix] as the argument 
of CharacteristicPolynomial ,Ei genval ues,Ei genvectors,andEi gensystem to force 
Mathematica to return decimal eigenvalues and eigenvectors. If k digit precision is desired, N[ matrix, К] 
will return k significant digits. 


EXAMPLE 29 


"m 


Ei genval ues[a] 
{2+ V2,2- 42] 
Ei genvectors[a] 


Ha v2, 1}, {-1- v2, a}} 


Ei genval ues[ N[a]] 

(3.41421, 0.585786] 

Ei genvectors[N[a]] 

(10.382683, 0.92388}, {-0.92388, 0.382683}} 
Eigenvalues[N[a, 20] ] 

(3.4142135623730950488, 0.58578643762690495120} 
Eigenvectors[N[a, 2011 


{{-0.38268343236508977173, -0.92387953251128675613], 
(-0.92387953251128675613, 0.38268343236508977173} } 


Ei gensystem[N[a]] 
((3.41421, 0.585786}, {{0.382683, 0.92388}, (-0.92388, 0.382683}}} 
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Note: Because different algorithms are used for computing numerical eigenvalues, they some- 
times emerge in a different order. Furthermore, since eigenvectors are not uniquely determined, 
the numerical eigenvectors may appear to be multiples or linear combinations of those obtained 
previously. 


SOLVED PROBLEMS 


12.36 What is the characteristic polynomial of the matrix A, whose entries are the first 25 consecutive 
integers? 
SOLUTION 
а -Partition[Range[25], 5]; 
a [1 MatrixForm 
1 2 3 4 5 
6 7 8 9 10 
11 12 13 14 15 


16 17 18 19 20 
21 22 23 24 25 


CharacteristicPol ynomial[a, x] 


250 xX? + 65 xí - x’ 


12.37 Consider the tridiagonal 5 x 5 matrix whose main diagonal entries are 4, with 1s on the adjacent 
diagonals. Show the eigenvalues and corresponding eigenvectors in a clear, unambiguous 
manner. 


SOLUTION 


m=Table[If[Abs[i -j]=1,1,If[i =j, 4,011, ti, 1, 5}, {j, 1, 5}]; 
т || Matri xForm 


4 1000 
14 100 
01410 
00 14 1 
0001 4 


data - Ei gensystem[ m] 
Hass, 55 4, 3; 4, saab ( (1, 43, 2, 45, 1), 5-1, =L; 0, T; 1), 
{1, 0, -1, 0, 1}, {-1, 1, 0, -1, 1}, {1, - 43, 2, - 43, 131] 


Do[Print[ "eigenvalue #", k, "is", data[[1, k]], 

"with corresponding eigenvector:", data[[2, k]]], tk, 1, 51] 
eigenvalue #1is4+ af with corresponding eigenvector: {1, NEI nr 4/3 ; 1} 
eigenvalue #2 is 5 with corresponding eigenvector: {-1, -1, 0,1, 1} 
eigenvalue #3 is 4 with corresponding eigenvector: (1, 0,-1,0, 1) 
eigenvalue #4 is 3 with corresponding eigenvector: (71, 1,0,-1, 1] 


eigenvalue #5 is4- J3 with corresponding eigenvector: (1, EN ‚2, саз ‚1} 
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12.38 An important theorem іп linear algebra, the Cayley-H amilton theorem, says that every square matrix 
satisfies its characteristic equation. Verify the Cayley-H amilton theorem for 


1212 
3 -1 3 -1 
Wels 571 
1236 
SOLUTION 
1 2 1 4 
|3 -13 -1f 
апу 5 7 X] 
12 3 6 


CharacteristicPolynomial[a, x] 
= 196 + 161 x + 15 x*-13 x? +x? 


- 196 1 dentityMatrix[4]+161a+15 MatrixPower[a, 2]- 13 Matri xPower[a, 3]+ 
Matri xPower[a, 4] // MatrixForm 


0 0 0 0 
0 0 0 0 
0 0 0 0 
0 0 0 0 
12.39 Approximate the eigenvalues of the 10 x 10 Hilbert matrix: һ = m T 


SOLUTION 


hilbert =HilbertMatrix[10]; 
hilbert // MatrixForm 


тісі іш лалы а 

2 2 4 5 6 7 8 9 10 
1 1 1 1 1 1 1 1 1 T 
2 3 4 5 6 7 8 9 10 11 
1 1 1 1 1 1 1 1 1 1 
3 4 5 6 7 8 9 10 11 12 
1 1. 1 1 1 1 1 1 1 1 
4 5 6 7 8 9 l0 11 12 13 
1 1 1 1 1 1 1 1 1 1 
5 6 7 8 9 10 11 12 13 14 
1 1 1 1 1 1. 1 1 1 T 
6 7 8 9 10. 11. 12 13 14 15 
1 1 1 1 1 1 1 1 1 1 
7 8 9 10 11 12 13 14 15 16 
1 1 I 1 1 1 1 1 1 1 
8 9 10 11 12 13 14 15 16 17 
1 1 T 1 1 1 1 1 1 T 
9 10 11 12 13 14 15 16 17 18 
1 1 1 1 1 1 1. 1 1 ЕП 
10 11 12 13 14 15 16 17 18 19 


Ei genval ues[ N[hi l bert]] 


(1.75192, 0.34293,0.0357418,0.00253089, 0.00012875,4.72969x105,1.22897x10, 
2.14744x107?,2.26675x10 3,1. 09287х10-:3) 
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: i+j-1 ІҒі-і<11 
12.40 A pproximate the eigenvalues of the 10 x 10 matrix A such that a; ; 4 if i+j>11 
SOLUTION 
fli_,j lei +tj-1/;i+j «11 
f[i ,j.1:21-i-j /; i *j 5» 11 
а = Array[f, «10, 103]; 
a // MatrixForm 


1 2 3 4 5 6 7 8 9 10 
2 3 4 65 6 7 9 10 9 
3 4 5 6 7 8 9 10 9 8 
4 5 6 7 8 9 10 9 8 7 
5 6 7 8 9 10 9 8 7 6 
6 7 8 9 10 9 8 7 6 5 
7 8 9 10 9 8 7 6 5 4 
8 9 10 9 8 7 6 5 4 3 
9 10 9 8 7 6 5 4 3 2 
10 9 8 7 6 5 4 3 2 1 


Ei genval ues[ N[a]] 


(67.8404, - 20.4317, 4.45599, - 2.42592, 1.39587, - 1., 0.756101, 
- 0.629808, 0.55164, – 0.512543] 


12.7 Diagonalization and Jordan Canonical Form 
Given an n x n matrix, A, if there exists an invertible matrix, P, such that A =P DP -}, where D is a diagonal 
matrix, we say that A is diagonalizable. 

Not every matrix is diagonalizable. However, it can be shown that if A has a set of n linearly independent 
eigenvectors, then A is diagonalizable. P is the matrix whose columns are the eigenvectors of A, and D is 
the diagonal matrix whose main diagonal entries are their respective eigenvalues. 


EXAMPLE 30 


18 -51 27 -15 
8 -24 14 -8 


27|15 .48 28 -15| 

15 -47 25 -12 
Ei genval ues[a] < Since the eigenvalues are distinct, the 
{4,3,2,1} corresponding eigenvectors will be 


ү linearly i dent. 
Ei genvectors[a] inearly independen 


{{3, 1, 2, 3},{1, 0, 0, 1}, {0, 1, 3, 2},{3, 2, 3, 2}} 

р = Тгапѕ роѕе[ Ei genvectors[a] ] < The transpose makes the eigenvectors 
{{3, 1, 0, 3}, {1, 0, 1, 2}, {2, 0, 3, 3}, (3, 1, 2, 2}} columns. 

d =Diagonal Matrix[ Ei genval ues[a]] 

{{4,0,0,0}, {0, з, о, 0}, {0,0,2,0}, {0,0,0,1}} 

p.d.Inverse[p] // MatrixForm 


18 =51 27 -15 
8 -24 14 -8 
15 -48 28 -15 
15 -47 25 -12 


< p.d.Inverse[pl-a 
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To summarize, 
Matri xForm[a] == Matri xForm[p]. Matri xForm[d]. Matri xForm[Inverse[p]] 


18 -51 27 -15| (3 0 1 3) (4 00 0) (3 -9 5 -3 
8 -24 14 -8| |1 0 1 2/1|03 0 0| |-5 15 -9 6 
15 -48 28 -15| |2 0 3 311002 0| |-1 2 -1 1 
15 -47 25 12] 413 12 2] 10 0 0 1) («1 4 -2 1 


U nfortunatel y, not every matrix can be diagonalized. However, there is a standard form, called J ordan 
canonical form, that every matrix possesses. 

A Jordan block is a square matrix whose elements are zero except for the main diagonal, where all numbers 
are equal, and the superdiagonal, where all values are 1: 


А 1 0 0 0 0 
02A 10 0 0 
00 A1 0 0 
TP 1 0 
000 0 A 1 
0000 0л 


а 00.. 0 
0), 0.. 0 
DE M ME: 
00 0..J, 


Тһе) 5 аге Jordan blocks. The same eigenvalue may occur in different blocks. The number of distinct 
blocks corresponding to a given eigenvalue is equal to the number of independent eigenvectors belonging 
to that eigenvalue. 


EXAMPLE 31 


Ei gensystem[a] 
{{-2, 4, 4}, {{-1, 1, 1}, (1, -1, 1}, (0,0, 0}}} 


The eigenvalues are -2 and 4 with eigenvectors, respectively, (-1, 1, 1) and (1, -1, 1). The vector 
(0, о, 0) is not an eigenvector; its presence simply indicates that a third linearly independent eigenvector 
cannot be found. To construct Q, the standard procedure is to find a vector xsuch that (A - 41) x- (1, - 1, 1). 


LinearSolve[a- 4 1 dentityMatri x[3], (1, - 1, 11] 
(1,0, 0} 


The matrices Q and | may now be constructed: 
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q.j.Inverse[q] // MatrixForm 


m JordanDecomposition[ matrix] computes the J ordan canonical form of matrix. The output is 
alist (q, j} where q апа j correspond to Q and J as described previously. 


EXAMPLE 32 (Continuation of Example 31) 


5 4 3 
=|-1 0 -3 
1 -2 1 


{q, j}=JordanDecomposition[a] 
q // MatrixForm 


j 11 Matri xForm 


EXAMPLE 33 


65 88 -129 -23 -1 -97 -19 
86 124 -180 -32 -4 -134 -21 
29 39 -54 -11 2 -43 -13 
a=|36 50 -77 -11 -3 -56 -5 |; 
63 88 -131 -24 0 -97 -16 
58 85 -126 -21 -6 -91 -9 
63 87 -129 -24 -1 -96 -16 


{q, j} 2JordanDecomposition[a]; 
MatrixForm[a] =MatrixForm[q]. Matri xForm[j ]. Matri xForm[Inverse[q]] 


65 88 =129 23  —L. 97 -19 

86 124 -180 -32 -4 -134 -21 

29 39 -54 -11 2 -43 -13 

36 50 -77 =11 3 =56 =5 == 
63 88 -131 -24 0 -97 -16 

58 85 -126 -21 -6 -91 =9 

63 87 -129 -24 -1 -96 -16 


ЕНЕ ИЕГЕ 4 - : 
2 4 8 021000 0 r3 : WES oe 0 -14 -3 
0 -4 -2 0 bod d —-— nn А = 4 
3 2 T -22 2 a 1 Їооо2зооо11 55 € 3 2 0 7 2 
00003 1 0||5 6 =10 =й) 0 -7 =l 
2 2 lc 1 
2 4 ^8 x o 0 0 0 0 3 1 17 25 -36 -7 0 -27 -5 
6 10 0 -4 4 -2 -2| (000000 3] [27 37 -55 -10 -1 -41 -7 
2 05 30 0 1 0 0 19 26 -38 -7 1 -29 -7 
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Other decompositions such as QR decomposition and Schur decomposition are available in M athematica, 
but shall not be discussed in this book. Their respective command names are QRDecomposi ti on and 
SchurDecomposition. 


SOLVED PROBLEMS 


12.41 Construct a 5 x 5 matrix whose eigenvalues are -2, - 1, 0, 1, 2 with respective eigenvectors (1, 1, 0, 0, 0), 
(0, 1, 1, 0, 0), (0, 0, 1, 1, 0), (0, 0, 0, 1, 1), and (1, 0, 0, 0, 1). 


SOLUTION 
d = Diagonal Matri x[ {- 2, - 1, 0, 1, 23]; 


p=Transpose[{{1, 1, 0, 0, 0}, {0, 1, 1, 0, 02, £0, 0, 1, 1, 0}, «0, 0, 0, 1, 1}, 
{1, 0, 0, 0, 1331; 


а= р. й. 1 пуегѕе[ р]; 
a || Matri xForm 


pi МІН NIF yy 
NIW Nle ку, МІН N 


1242 Show that the matrix f i) has real eigenvalues if and only if a? + 4bc - 2ad +02 > 0. 
SOLUTION 
m={{a, b}, (с, d) 


Ei genval ues[ m] 


I (а «a- Je *4bc-2ad«d'), 1 (а +а+а#кїъс-2а4+4°}| 

The eigenvalues will be real if and only if the expression inside the radical symbol is non-negative. 
12.43 Construct a 7 x 7 matrix of random digits and show that the sum of its eigenvalues is equal to its 

trace and the product of its eigenvalues is equal to its determinant. 


SOLUTION 


а = Table[Randoml nteger [9], £i, 1, 7}, {j, 1, 73]; 
a // MatrixForm 


29 80762 
2. 3 5 L9 5 1 
3. 8 5 0 8 3 1 
6.3.9 3 6 5 9 
4 29 9 6 9 4 
417673 7 
1583 990 


eigenvalues = Ei genval ues[N[a]] 


(34.6689, -1.97195+6.251521, -1.97195-6.251521i,-6.08883, 
7 2.35886, -0.138652-0.3346121,-0.138652-0.3346121) 


Meigenvalues[[i]] or Total[eigenval ues] 
ізі 


22+0.1 
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Tr[a] 
22 


[еї senvat uestti 11 or Product[ei genval иеѕ[ [11], £i, 1, 71] 
ізі 


2807. + 1.42585х10-131 
реї [а] 
2807 


1244 A matrix, Р, is said to be orthogonal if PTP = 1. If itis possible to find an orthogonal matrix P that 
diagonalizes A, then A is said to beorthogonally diagonalizable. However, only symmetric matrices 
are orthogonally diagonalizable. (A matrix is symmetric if AT = A. If A is symmetric, it can be 
shown thatthe eigenvectors corresponding to distinct eigenvalues are orthogonal.) Find a matrix P 
that orthogonally diagonalizes 


31000 

13000 

A-|0 02 1 1 

00121 

00112 

SOLUTION 

31000 
13000 
а=|0 0 21 1| 
00121 
00112 


(values, vectors} =Eigensystem[a] 
((4,4,2,1,1р (1(0,0,1,1,1),(1,1,0,0,0),(-1,1,0,0,0), 
{0, 0, -1, 0, 1}, {0, 0, -1, 1, 0}}} 


ei genspacel- tvectors[[1]], vectors[[2]]}; ' There are five eigenvalues, two of ! 
eigenspace2 = {vectors[[3]]}; : which have multiplicity 2. We group ! 

А Е 7 : their eigenvectors into three eigen- : 
eigenspace3 = (vectors[[4]], vectors[[5]]}; : spaces and apply the Gram-Schmidt ! 
vl =Orthogonalize[eigenspacel]; + process to each. The orthogonal matrix : 


А А 4 1 is the matrix whose columns are the ! 
v2=0rthogonalizeľeigenspace2]; : vectors from Ort hogonalize. 


v3 = Orthogonalize[eigenspace3]; тке Аиы Башты ipi ades ЫНЫ: 
pzTranspose[Join[vl, v2, v3]]; 
p // MatrixForm 


B E sube р 0 
V2 V2 
б. ae db gw 0 
М2 V2 
1 1 1 
CA 0 0 э зе ым: 
ГЕ 42.46 
rs 0 0 0 
43 3 
1 1 1 
— 0 0 =, ул 
ГЕ 42.6 
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Transpose[p].p // MatrixForm 


< Just a check to see if the matrix is orthogonal. 


oo OC н 
oo OF о 
оон OO 
O POOG 
Hoooo 


d = Diagonal Matri x[val ues]; 
p.d.Transpose[p] // MatrixForm 


«This gives us back our original matrix. 


OOO F W 
ооо WF 
PRN OO 
н оноо 
мын н oo 


Matri xForm[a] == MatrixForm[p]. Магі хЕогт[ а]. Matri xForm[Transpose[p]] 


3 1 0 9g 0 

1 3 000 

00 2 1 14 = 

0 О ЪЪ 2 T 

0.0 1 1 2 

"um IRE E E S 
42. X2 43. we» ы 

а ы е. o 0 Ы. 1 0 0 0 
Z 2 4 0 0 0 0 J3 X8 

1 1 1 0.4 0 0 0 1 1 

—— 0 0 --- -— |. 2 ole -= = 0 0 0 

з Ыз жүр т 222 

" 5 0 0 0 1 0 1 1 

— 0 0 0 - 0.000 1 0 0 -— 0 -- 

48 3 V2 V2 

1 L 1 1 12 1 

—= 0 0 -- --- 0 0 -= (5 -= 

NE J/2. X6 Je V3 Ve 


Appendix 


A.1 Pure Functions 


A function is a correspondence between two sets of numbers A and B such that for each number in A there 
corresponds a unique number in B. For example, the "squaring" function: For each real number there 
corresponds a unique non-negative real number called its square. 

Whileitis customary to write f(x) = х2, one must understand that there is no special significance to the 
letter x. It is the process of squaring that defines the function. 

Although M athematica allows a function to be defined in terms of a variable, as in £ [x ] = х?, the 
variable x acts as a "dummy" and is insignificant. The function would be the same had we used y, z, or 
any other symbol. 

A "pure" function is defined without reference to any specific variable. Its arguments are labeled #1, 
#2, #3, and so forth. To distinguish a pure function from any other M athematica construct, an ampersand, 
&, is used at the end of its definition. Once defined, we can deal with a pure function as we would any 
other function. 

Although the concept of a pure function is a natural one, itis possible to use M athematica and never be 
concerned with it. Occasionally, however, M athematica will express an answer as a pure function and it 
is therefore worthy of a brief mention. The interested reader can find more information in M athematica's 
Documentation Center. 


EXAMPLE 1 
f =#1°& 
f[3] 

9 
f[x] 


x? 


f[a +b] 
(a+b)? 


EXAMPLE 2 
g = #1 #27 +34; 
913, 4] 
51 
g[u, v] 


3-uv? 
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A nother way of specifying a pure function is by use of Mathematica'sFuncti on command. 


m Function[x, body] is a pure function with a single parameter x. 
m Functi on[ (x3, X,,...3, body] isa pure function with alist of parameters x,, х„,... 


EXAMPLE 3 Express the solution of the differential equation 


2 
dd *y-0 yt) - yo =1 


as a pure function and evaluate it for x = 7/4. 


DSolve[ Cy [x] *y[x120, y[0] 1, y' [01 215, y, x] 
((y B Function[{x}, Cos[x] +Sin[x]] ) ) 
Function[ {x}, Cos[x] + Si n[x] ] [ 7/4] 


/2 


SOLVED PROBLEMS 


A.1 


A.2 


А.З 


А4 


Express as a pure function the process of adding the square of a number to its square root and 
compute its value at 9. 

SOLUTION 

f = #172 +Sqrt[ #1] 6; 

f[ 9] 

84 

A number is formed from two other numbers by adding the square of their sum to the sum of their 


squares. Express this operation as a pure function and compute its value for the numbers 3 and 4. 
SOLUTION 
g =(#1+ #2) 70 + #172 +4276; 


913,41 
74 


Express the derivative of the function Si n as a pure function and compute its vale at т/б. 
SOLUTION 

f -Sin' 

Cos [#1] & 

fin 6] 

3 


2 


Define f(x) = (1-- x + х?)? and express its second derivative as a pure function. 
SOLUTION 


f[x ] =(1 +x * x?) 5 
Гг 
20 (1+2 #1)? (14+ #1 + #12)? + 10(1 + #1 + #12)* & 
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A.2 Patterns 


You have certainly noticed the use of the underscore( ) character when defining functions in M athematica. 
The use of the underscore is an important concept in M athematica called pattern matching. 

A pattern is an expression such as x that contains an underscore character. The pattern can stand for 
any expression. Thus, £ [x 1 specifies how the function £ should be applied to any argument. W hen you 
define a function such as £ [x 1- x?, you are telling M athematica to automatically apply the transformation 
rule £ [x ] x? whenever possible. 

In contrast, a transformation rule for £ [x] without an underscore specifies only how the literal expres- 
sion £ [x] should be transformed, and does not say anything about the transformation of £ [y], £ [z], etc. 


EXAMPLE 4 
Clear[f] Clear[f] 
f(x ex^ f[x] = x?; 
fix] f[x] 
х2 x? 
fly] fly] 
у? Е [у] 
f[a + b] f[a +b] 
(a+b)? f[a+b] 
EXAMPLE 5 


1 £x^*x'[. x*- —>Log[q] 

1 + Log[p] + Log [а] <All exponentials are transformed to Log. 

1 £x^!*x'[. х4->100141 

1 + x? + Log[q] < Only x3 is transformed. 

Patterns can specify the type of an expression as well as its format. For example, | nteger standsfor 


an integer pattern. Similarly, Rational, Real,and Compl ex areacceptable patterns representing 
other types of numbers. 


EXAMPLE 6 TheMathematica functionFactori al [n] computes n! if n isa positive integer and Г [1 + п] if nis 
a positive real number. For certain applications, it might be useful to leave the factorial of a non-integer undefined. 


fact[n Integer] = Factorial [n]; Factorial [5] 
fact[n Real] = "undefined"; 120 

fact[5] Factorial[5.5] 
120 287.885 
fact[5.5] 

undefined 


EXAMPLE 7 This example defines the function 
Xy if both x and y are integers 
f(x,y)=4x+y if both x and y are real 


X-y  ifxoryisan integer and the other is real 
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На Integer, b Integer]za b; 
На Real, b Real]za*b; 

На Real, b Integer] = #[ а Integer, b Real]=a- b; 
f[2, 3] 

6 

f[2., 3.] 

5. 

f[2., 3] 

-1. 

f[2, 3.] 

-1. 

fil, 1] 


£ [1,1] < f is undefined for complex arguments. 


A.3 Contexts 


Itis common practiceto define symbols using names that are reminiscent of the symbol's purpose. Sometimes, 
however, the names get unwieldy and cumbersome to work with. Contexts are used as a tool to help organize 
the symbols used in a M athematica session. 

The complete name of a symbol is divided into two parts, a context and a shorter name, separated by a 
backquote ( ` ) character. U sed for this purpose the backquote is called a context mark. 


EXAMPLE8 atomicnumber^auandatomicweight "au aretwo distinct symbols with a common short name, 
au. (Au is the chemical symbol for gold.) 

atomi cnumber' au = 79; 

atomi cwei ght’ au = 196.967; 

atomi cnumber au 


79 
atomi cwei ght au 
196.967 


When you begin а Mathematica session, the default context is Global". Thus, for example, the 
symbol object is equivalent to GLobal ~ object. The default can be changed by redefining the symbol 
$Context. 


m $Context is the current default context. 
m Context [symbol] returns the context of symbol. 


EXAMPLE 9 


atomicnumber au = 79; 

atomi cwei ght au = 196, 967; 

$Context = "atomicweight~" ; < Context names are strings; quotes are important. 
au 

196.967 

$Context = "atomicnumber" ^"; 

au 

79 


"Built-in" Mathematica symbols have context System”. 
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EXAMPLE 10 
Context[ Pi] 
System™ 


It is common for symbols in different contexts to have the same short name. If only the short name is 
referenced, M athematica decides which is called by its position in alist called $ Context Path. 


m $ContextPath is the current search path. 


EXAMPLE 11 
au="gold"; 
atomi cnumber' au=79; 
atomi смеі ght au 2 196.967; 
$ContextPath 
(PacletManager'^, WebServices'^, System'^, Global^] «— Default context path. 
$ContextPathzJoin[$ContextPath, {"atomicweight~"}, ("atomicnumber'")] 
(PacletManager', WebServices'^, System”, Global^, atomicweight~, atomicnumber'") 
au 


gold < Global^ comes before atomicweight^ and atomicnumber^ 
Remove[Gl obal au] insContext Path. 

au < atomicweight is now the first element of SCont ext Path in which 
196.967 au appears. 

Remove[atomicwei ght au] 

au < atomicnumber is now the first element of SCont ext Path in 


79 which au appears. 


A.4 Modules 


Mathematica, by default, assumes that all objects are global. This means, for example, that if you define 
x to have a value of 3, x will remain 3 until its value is changed. In contrast, a local object has a limited 
scope valid only within a certain group of instructions. 

M odules allow you to define local variables whose values are defined only within the module. Outside 
of the module, the object may either be undefined or have a completely different value. 


= Module[tvarl, var2, ...}, body] defines a module with local variables уаг1, var2, . .. 
в Module[{varl=vl, var2- v2, ...}, body] defines a module with local variables var1, уаг2,... 


initialized to v1, v2, . . . , respectively. 
EXAMPLE 12 
x =3; < Global variable x is set to 3. 
Modul e[ {x = 8}, x +1] < Module is defined with local variable x initialized to 8. 
9 < x is incremented. 
X < Global x is called. 
3 = Original value of x is returned. 


It is often useful to group several commands into one unit to be executed as a group. This is especially 
true if complicated structures involving loops are involved. Several commands may be incorporated within 
body if they are separated by semicolons. 

EXAMPLE 13 
Module[(x 21, y 22), x =x +3; y sy +4; Print[xy]] 


24 x and y areinitialized to 1 and 2, respectively; x is incremented by 


3, y is incremented by 4, and the two are multiplied. 
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Itis often convenient to define a function whose value is a module. This allows considerably more flex- 
ibility when dealing with functions whose definitions are complicated. When defining a function in this 
manner, it is important that the delayed assignment, :- , be used. 


EXAMPLE 14 Thefollowing definesthe factorial function. The value of xo is assumed to be a non-negative integer. 
The variables fact and x, which аге initialized to be 1 and хо, respectively, are local so there is no conflict with any 
variables of the same name elsewhere in the program. xo is a "dummy" variable. 


f[x0 ]:=Module[{fact =1, x = х0}, While[x >1, fact zx*fact; x zx - 1] 
Print[fact]] 

f[0] 

1 

f[5] 

120 

f[10] 

3 628 800 


To clarify how a module works, consider the next example. Although the same module is executed three 
times, the variable, which appears as x, is actually assigned three different local names. Because of this 
clever "bookkeeping," all three are independent and none will conflict with global variable x. 


EXAMPLE 15 
x =3 
3 
Modul e[ {x}, Print[x]] 
x$342 


Modul x}, Print[x 
Dou eL pel. [x1] Since all three values of x are given different internal 
x$344 names, there can be no conflict. 


Modul e[ {х}, Print[x]] 
x$346 

X 

3 


SOLVED PROBLEMS 


A.5 Write а module that will take an integer and return all its factors. 
SOLUTION 
factorlist[x0_] :=Module[{x = 1), 
While[x <x0, If [ Mod[ x0, x] z0, Print[x]]; x**11] 
factorlist[1] 
1 
factorlist[10] 
1 


10 
factorlist[11] 
1 

11 


А.6 


А.7 
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factorlist[90] 


A very crude way of determining the position of a prime within the sequence of primes is to examine 
the list of all primes up to and including the prime in question and determine its position in the list. 
If the number is not in the list, then the number is not prime. Construct a module that will determine 
whether a number is prime, and if so, determine its position. If not, return a message indicating that 
itis not prime. 


SOLUTION 


роѕ[х0 ]:=Module[ tx = 1, prm}, prm= False; 
While[Prime[x] «x0 && Not[prm], 
If[Pri me[x] == х0, prm=True]; x ++]; 
If[prm Print[x- 1], Print["Nota Prime"]l] 


pos[1] 
Not a Prime 
pos[2] 

1 

pos[3] 

2 

pos[101] 
26 
pos[1001] 


Not a Prime 


A famous conjecture asserts that if you start with a positive integer, n, and replace it by n/2 if n is 
even and by Зп + 1 if n is odd, and repeat the process over and over in an iterative manner, then 
you will always wind up with 1. (This conjecture has never been proven or disproved.) Construct a 
module that simulates this iterative process. 


SOLUTION 
We first define a function, successor , that will define one iteration step. 
successor[n J:=If[EvenQ[n], n/2, 3n * 1] 


Next we introduce a module, al | val ues, that will produce a list of all successors, starting with the 
successor of n. 
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A.5 


allvalues[n ]: = Module[ (mz п}, While[m#1, m=successor[m]; Print[m]]] 
allvalues[6] 


Since this list might belong if n is large, and all we are really interested in is the final value and the number 
of iterations it takes to get there, another module might be more appropriate. 


finalvalue[n_] :=Module[{m=n, k=0}, While[m#1, m=successor[m]; k++]; 


Print[ "final value=", m, ", #iterations =", k]] 


fi nal val ue lists the final value of the process, together with the number of iterations needed to reach 
the final value. 


final val ue[6] 

final value = 1, # iterations = 8 
fi nal val ue[100] 

final value- 1, # iterations - 25 
final val ue[1000] 


final value-1, # iterations = 111 


Commands Used in This Book 
Options are not included in this list. Please refer to the index. 


$Context is the current default context. 

$Context Path is the current search path. 

Abs[x] returns x if x20and-xif zx«0. 

Accumul at e[ list] returns a list having the same length as list containing the successive partial 
sums of list. 

AddTo[x, y] orx + = y adds y to x and returns the new value of x. 

AffineShape[ object, {xscale, yscale, zscale}] scales the x-, y-, and z-coordinates by xscale, 
yscale, and zscale, respectively. 

And[p, q] огр &&qorp Aq is Trueif both p and qare True; False otherwise. 

Ani mat e[ expression, £k, m, n, i 3] displays several different graphics images rapidly in suc- 
cession, producing the illusion of movement. 

Ani mate[expression, «kl, ml, n1, i 15, «k2, m2, n2, i2], ...,] allows multiple para- 
meters which can be independently controlled. 

Apart[ fraction] writes fraction as a sum of partial fractions. 

Append[list, x] returns list with x inserted to the right of its last element. 
ArcSin,ArcCos,ArcTan, Агсбес, ArcCsc, and ArcCot аге the inverse trigonometric func- 
tions. Only the principal values, expressed in radians, are returned by these functions. 

ArcSi nh, ArcCosh, ArcTanh,ArcSech,ArcCsch,andArcCot h aretheinverse hyperbolic 
functions. 

Array[f, n] generates а list consisting of n values, £ [1], £ [2], ..., £ [n]. 

Array[f, n, r] generates a list consisting of n values, £ [i] starting with £ [r], i.e, £ [r], 
£[r-1],...,£[r-*n- 1]. 
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Array[f, «m, п} ] generates a nested list consisting of an array of m elements, each of which is an 
array of n elements, whose values аге £ [i,j] as j goes from 1 to n and i goes from 1 to m. Here 
£ is a function of two variables. The second index varies most rapidly. 

Array[f, «m, n», «tr, 53] generates a nested list consisting of an array of m elements, each of 
which is an array of n elements. The first element of the first sublistis £ [r, s]. 
ArrayFlatten[{{my My... }, (ma mao,... },... }] creates a single flattened matrix 
from a matrix of matrices т. All the matrices in the same row must have the same first dimension, 
and all the matrices in the same column must have the same second dimension. 

Bar Char t [ datalist] draws a simple bar graph. datalist is a set of numbers enclosed within braces. 
BarChart[ {datalistl, datalist2,...3] draws a bar graph containing data from multiple data 
sets. Each data list is a set of numbers enclosed within braces. 

Bar Chart 3D[ datalist] draws a 3-D bar graph corresponding to the numbers in datalist. 

Bar Chart 3D[ {datalistl, datalist2,...}] draws а bar graph containing data from multiple data sets. 
Cancel[ fraction] cancels out common factors in the numerator and denominator of fraction. The 
option Extension — Automatic allows operations to be performed on algebraic numbers that 
appear in fraction. 

Cartesi anProduct[ 11511, list2] returns the Cartesian product of 11511 and list2. 

Catal an is Catalan’s constant and is approximately 0.915966. It is used in the theory of combinatorial 
functions. 

Ceiling[x] returns the smallest integer not less than x. М any textbooks represent this by [ x ]. 
CharacteristicPol ynomi al [ matrix, var] returns the characteristic polynomial of matrix 
expressed in terms of variable var. 

CharacterRange[ "charl", "char2"] produces alist of characters from char1 to char2, based 
upon their standard A SCII values (assuming an A merican English alphabet). 

Characters|[ string] produces a list of characters in string. 

ChebyshevT[n, x] givesthe Chebyshev polynomial (of the first kind) of degree n. 

Cl ear [ symbol] clears symbol's definition and values, but does not clear its attributes, messages, or defaults. 
symbol remains in M athematica's symbol list. Typing symbol z. will also clear the definition of symbol. 
Coefficient [ polynomial, form] gives the coefficient of form in polynomial. 

Coeffici ent[ polynomial, form, n] gives the coefficient of form to the nth power in polynomial. 
CoefficientList[polynomial, variable] gives а list of the coefficients of powers of variable 
in polynomial, starting with the Oth power. 

Collect[poly, var] takes a polynomial having two or more variables and expresses it as a poly- 
nomial in var. 

Col итп Рог mf list] presents list as a single column of objects. 

Col umnFor m[ list, horizontal] specifies the horizontal alignment of each row. A cceptable values 
of horizontal areLef t (default), Center, and Ri ght. 

ColumnForm[list, horizontal, vertical] allows vertical alignment of the column. A cceptable 
values of vertical areAbove, Center, and Bel ow (default). 

Compl ement [ universe, list] returns a sorted list consisting of those elements of universe that are 
not in list. In this context, universe represents the universal set. 

Compl ement [ universe, 11501, list2] returns a sorted list consisting of those elements of universe 
that are not in 1151 or list2. This command extends in a natural way to more than two sets. 
Composition[f1, f2, f3,...] constructs the composition £10 £20 ЕЗ... 
ConstantArray[c, «m, n3] generates an m x n array, each element of which is c. 
Context[ symbol] returns the context of symbol. 

ContourPlot[equation, «x, xmi n, xmax?, «y, ymin, ymax}] plots equation by treating 
the equation as a function in three-dimensional space, and generates a contour of the equation cutting 
through the plane where z equals zero. 

Contour PI ої [ {equation1, equation2,...}, (X, xmin, хтах }, {y, ymin, ymax}] 
plots several implicitly defined curves. 

ContourPlot[f[x, y], tx, xmi n, хмах}, ху, ymin, ymax}] draws a contour plot of 
f(x, y) ina rectangle determined by xmin, xmax, ymin, and ymax. 

ContourPl ot3D[f[x, y, 2], £x, xmin, xmax?, (y, ymin, ymax}, 52, zmi n, zmax}] 
draws a three-dimensional contour plot of the level surface f(x, y, z) = біп a box determined by 
xmin, xmax, ymin, ymax, zmin, and zmax. 
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Cross[v1, v2] returns the cross product of v 1 and v2 . (This applies to three-dimensional vectors 
only.) The cross product symbol, x, can be inserted into the calculation by typing (without spaces) 
the key sequence [ESC]c- r - o- s- s[ESC]. 

D[f[x], x] returns the derivative of £ with respect to x. 

D[f[x], «x, п>] returns the nth derivative of £ with respect to x. 

D[f, хІого,Ғ (on the Basic Math Input palette) returns o£ /ox, the partial derivative of £ with 
respect to x. 

D[f, tx, n1] Orda, mf returns 07£/0x^, the nth order partial derivative of £ with respect to x. 


А " i e k 
D[f, Xy, Xar; XV or B, asco returns the "mixed" partial derivative > 2 f z 
"cH ORL, 
D[f, 0х1, Ni, O Maye ey Og 0] OF OG „ууулу... returns the partial derivative 
Pf [x,,X,,. .., X] 
E = wheren,+n,+...+nm,=n. 


д%9%.. 0% 
Decrement[x] orx -- decreases the value of х by 1 but returns the old value of x. 


Degree isequal to Pi / 180 and is used to convert degrees to radians. 

Delete[list, n] deletes the element in the nth position of list. 

Delete[list, -n] deletes the element in the nth position from the end of 1ist. 
Delete[list, {{p,},{p,},...3] deletes the elements in positions p,, р,, ... 
Delete[list, tp, q+] deletes the element in position q of part p. 

Delete[list, {{py, qı}, {P42}, . . .] deletes the elements in position а, of part p,, 


position q, of part p,,... 

Denomi nator [ fraction] returns the denominator of fraction. 

DensityPlot[f[x, y], tx, xmin, xmax}, «y, ymin, ymax}] draws a density plot of 
f(x, y) in a rectangle determined by xmin, xmax, ymin, and ymax. 

Depth[list] returns one more than the number of levels in the list structure. Raw objects, i.e., 
objects that are not lists, have a depth of 1. 

Derivative[n] is a functional operator that acts on a function to produce a new function, 
namely, its nth derivative. Deri vati ve[n] [f] givesthe nth derivative of £ as a pure function 
апа Deri vati ve[n] [f ] [x] will compute the nth derivative of £ at x. 


Derivative[n,, n,,..., пу] [f] gives the partial derivative 


n,+n,+...+n,=n.Itreturnsa pure function that may then be evaluated at [x,, х,,..., XJ. 
Det [ matrix] computes the determinant of matrix. 

Di agonal Mat ri x[ list] creates a diagonal matrix whose diagonal entries are the elements of list. 
DiracDelta[t] returns ó(t), the Dirac delta function that satisfies 5(t)=0 if t 0, fo(t)dt =1. 


Di vi de[ a, b] computes the quotient of a and b. Only two arguments are permitted. Di vi de[ a, b] 
is equivalent to a / b. 

Di vi deBy[x, y] orx / = y divides x by y and returns the new value of x. 

Do[ expression, {k}] evaluates expression precisely к times. 

Do[ expression, «i , i max}] evaluates expression imax times with the value of i changing from 
1to imax in increments of 1. 

Do[ expression, {i, i mi n, i тах }] evaluates expression with the value of i changing from 
iminto imax in increments of 1. 

Do[ expression, Іі, i mi n, i max, i ncrement } ] evaluates expression with the value of i 
changing from imin to imax іп increments of increment. 

Do[ expression, {i, i mi п, imax}, cj, j min, | max}] evaluates expression with the value 
of i changing from ішіп to imax and j changing from jmin to jmax in increments of 1. The 
variable i changes by 1 for each cycle of j. This is known as a nested Do loop. 

Do[ expression, ti, i ті п, imax, i_increment}, cj, j min, j max, j_increment},...,] 
forms a nested Do loop allowing for incrimination values other than 1. 

Drop[list, n] returns list with its first n objects deleted. 

Drop[list, - n] returns list with its last n objects deleted. 

Drop[list, «n»] returns list with its nth object deleted. 

Drop[list, «- n3] returns list with the nth object from the end deleted. 

Drop[list, «m, n1] returns list with objects m through n deleted. 
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Drop[list, «m, n, К>] returns list with objects m through n in increments of k deleted. 

DSol ve[ equation, y[ x], x] givesthegeneral solution, y [x], of the differential equation, equation, 
whose independent variable is x. 

DSol ve[ equation, y, x] gives the general solution, y, of the differential equation expressed 
as a "pure" function within a list. Repl aceAll (/. ) may then be used to evaluate the solution. 
Alternatively, one may use Part or[[ ]] to extract the solution from the list. 

Dt [f[x, y]] returns the total differential of £ [x, у]. 

Dt [f[x, y], x] returns the total derivative of £ [x, y] with respect to x. 

E or e is the base of the natural logarithm. 

Ei gensystem[ matrix] returns a list of the form (eigenvalues, eigenvectors}. 

Ei genval ues[ matrix] returns a list of the eigenvalues of matrix. 

Ei genvectors[ matrix] returns a list of the eigenvectors of matrix. 

El i mi nate[ equations, variables] eliminates variables from a set of simultaneous equations. 
Equal [x, y] orx =y is True if and only if x and y have the same value. 

Eul er Gamma is Euler's constant and is approximately 0.577216. It has applications in integration 
and asymptotic expansions. 

Exp[x] isthe natural exponential function. Other equivalent forms are E ^x and E*. Lowercase e 
cannot be used, but the special symbol e from the Basic Math Input palette may be used instead. 
Exponential functions to the base b are computed by b ^x or b*. 

Expand[ poly] expands products and powers, writing poly as a sum of individual terms. 
ExpandAl | [ expression] expands both numerator and denominator of expression, writing the 
result as a sum of fractions with a common denominator. 

ExpandDenomi nat or[ expression] expands the denominator of expression but leaves the 
numerator alone. 

ExpandNumerator[ expression] expands the numerator of expression but leaves the denominator 
alone. 

ExpToTri g[ expression] converts exponential functions to trigonometric and/or hyperbolic 
functions. 

Factor[ poly] attempts to factor poly over the integers. If factoring is unsuccessful, poly is 
unchanged. 

Factorial[n] orn! givesthefactorial of n if n isa positive integer and T(n + 1) if n has a non- 
integer positive value. 

Раст ог! nteger[n] gives the prime factors of n together with their respective exponents. 
FactorTerms[ poly] factors out common constants that appear in the terms of poly. 
FactorTerms[ poly, var]factors out any common monomials containing variables other than var. 
Fi bonacci [n] returns the nth Fibonacci number. 

Fi ndMaxi mum[f [x], £x, x41] finds the relative maximum of f(x) near Xo. 

Fi ndMi ni mim[f [x], £x, x41] finds the relative minimum of f(x) near Xo. 

Fi ndRoot[lhs =rhs, «x, x05] solves the equation 1hs = rhs using Newton's method with 
starting value xo. 

FindRoot[I hs zrhs, tx, «x0, x15] solves the equation 1hs = rhs using (a variation of) 
the secant method with starting values xo and x1. 

FindRoot[I hs == г5, «x, x0, xmi n, xmax}] attempts to solve the equation, but stops if 
the iteration goes outside the interval [xmin, xmax]. 

FindRoot[equations, {varl,al}, {var2,a2},...] attempts to solve equations 
using initial values a1, a2, ...for var1, var2,...,respectively. The equations are enclosed in 
alist: {equationl,equation2,...}.Alternatively, the equations may be separated by && 
(logical and). 

First[list] returns the element of list in the first position. 

Flatten[list] converts a nested list to a simple list containing the innermost objects of list. 
Flatten[list, n] flattens a nested list n times, each time removing the outermost level. The depth 
of each level is reduced by n or to a minimum level of 1. 

FlattenAt[list, n] flattens the sublist that is at the nth position of the list by one level. If nis 
negative, M athematica counts backward, starting at the end of the list. 
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Floor[x] returns the greatest integer which does not exceed x. This is sometimes known as the 
“greatest integer function” and is represented in many textbooks by | x]. 

For[initialization, test, increment, expression] executes initialization, then repeatedly evaluates 
expression, increment, and test until test becomes False. 

Fractional Part[x] givesthe fractional portion of x (decimal point included). 

Ful | For m[ expression] exhibits the internal form of expression. 
FullSimplify[expression] tries a wide range of transformations on expression involving 
elementary and special functions, and returns the simplest form it finds. 

Functi on[x, body] isa pure function with a single parameter х. 

Functi on[ (Хх), Х;,... }, body] isa pure function with alist of parameters х,, x,,... 
GCD[m, n] returns the greatest common divisor of m and n. 

Gol denRati o has the value (1+ /5)/2 and has a special significance with respect to Fibonacci 
series. It is used in M athematica as the default width-to-height ratio of two-dimensional plots. 
Graphi cs[ primitives] creates a two-dimensional graphics object. 

Graphi cs3D[ primitives] creates a three-dimensional graphics object. 

GraphicsArray[tgl1, g2, ...1] plotsarow of graphics objects. 
GraphicsArray[£g11, 012,... 1021, g22, ... 12] plotsatwo-dimensional array of 
graphics objects. 

Greater[x, y] orx > y is True if and only if x is numerically greater than y. 
GreaterEqual [x, y] orx >=y orx >y is True if and only if x is numerically greater than y 
or equal to y. 

Hankel Matri х[ п, list] creates a Hankel matrix whose first row (and column) is list. 

Hankel Matri x[n] createsaHankel matrix whose first row (and column) is (1, 2, 3,..., п). 
HeavisideTheta[x] returns a value of 0 if x <0 and 1 if x > 0. 

Ні 1 bertMatrix[m, n] creates an m x n Hilbert matrix. 

Hil bert Matrix[n] creates ann x n Hilbert matrix 

IdentityMatrix[n] creates ann xn identity matrix. 

I dentityMatrix[n] produces an n x n matrix with 1s on the main diagonal and 05 elsewhere. 
| f [ condition, true, false] evaluates condition and executes true if condition is True and executes 
false if condition is False. 

If [ condition, true, false, neither] evaluates condition and executes true if condition is True, 
executes false if condition is False, and executes neither if condition is neither True nor False. 
| f [ condition, true] evaluates condition and executes true if condition is True. If condition is 
False no action is taken and Nu11 is returned. 

| f [ condition, , false] evaluates condition and executes false if condition is False. If condition 
is True no action is taken and Nu11 is returned. (Note the double comma.) 

Implies[p, q] orp = 4 iS False if pis True and qis False; True otherwise. 
Increment[x] orx ++ increases the value of x by 1 but returns the old value of x. 

I nfi ni ty orisa constant with special properties. For example, оо +1 = ee. 

I nput For m[ expression] prints expression in a form suitable for input to Mathematica. 

I nsert[list, x, n] returns list with x inserted in position n. 

Insert[list, x, -n] returns list with x inserted in the nth position from the end. 

Insert[list, x, «m, n3] returns list with x inserted in the nth position of the mth entry in the 
outer level. 

IntegerPart[x] givesthe integer portion of x (decimal point excluded). 


Integrate[f[x], x] computes the antiderivative (indefinite integral) | f (x) dx. А 
Іпёедгаѓе[ # [х], «x, a, b+] computes, whenever possible, the exact value of f f( Қо) dx. 


The symbol |. нас ОП the Basic Math Input palette may be used as well. 
Integrate[f[x, y], tx, xmin, xmax}, £y, ymin, ymax}] evaluates the double integral 


[ fo foy dy dx. 


xmin ymin 


Integrate[f[x, y, z], «x, xmin, xmax}, «y, ymin, ymax}, {z, zmin, zmax}] eval- 
uates the triple integral |. | [s f (x,y,z) dz dy dx. 


xmin ymin zmin 


APPENDIX 


InterpolateRoot[I hs -rhs, tx, a, b}] solves the equation 1hs = rhs using initial 
values a and b. 

Intersection[listl, list2] returns a sorted list of elements common to 1151 and 11542. If 11511 
and list2 are disjoint, i.e., they have no common elements, the command returns the empty list, { }. 
list] > 11512 is equivalent tol nter secti оп[ 11501, 1150]. 

| nverse[ matrix] computes the inverse of matrix. 

I nverselLaplaceTransform[F[varl], varl, var2] computes the inverse Laplace transform 
of the function F, with independent variable var1, and expresses it as a function of var2. 

J oi n[ 1151, list2] combines the two lists 1511 and list2 into one list consisting of the elements from 
listl апа list2. 

JordanDecompositi on[ matrix] computes the Jordan canonical form of matrix. 
KSubsets[list, k] returns alist containing all subsets of list of size k. 
LaplaceTransform[f[varl], varl, var2] computes the Laplace transform of the function £, 
with independent variable var1, and expresses it as a function of var2. 

Last [list] returns the element of list in the last position. 

LCM[ m, n] returns the least common multiple of m and n. 

Length[list] returns the length of list, i.e., the number of elements in list. 

Less[x, y] orx «y is True if and only if x is numerically less than y. 

LessEqual[x, y] orx <=y orx <y is True if and only if x is numerically less than or equal to y. 
Level [ list, { levelspec}] returns a list consisting of those objects that are at level levelspec of list. 
Level [ list, levelspec] returns a list consisting of those objects that are at or below level levelspec 
of list. 

Li mit[f[x], x а] computes the value of lim f (x). 


Li nearSolve[a, b] produces vectors x such that a . x = b. 

Li near Sol ve[a] producesaLinearSolveFunction that can be used to solve a.x = b for 
different vectors b. 

Li st[ elements] represents a list of objects. elements represents the members of the list separated 
by commas. Li st [ elements] is equivalent to { elements} . 

ListContourPlot[array] generates a contour plot from a two-dimensional array of numbers. 
ListContourPl ot3D[ array] draws a contour plot of the values in array, a three-dimensional 
array of numbers representing the values of a function. 

ListDensityPlot[array] generates a density plot from a two-dimensional array of numbers. 


ListLinePlot[4y, yy... ] plots points whose y-coordinates are y,, y,,...and connects 
them with line segments. The x-coordinates are taken to be the positive integers. 
ListLinePl ot[{{X 4, yy}, O5, у,},...,}] plots the points (xi, y,), (x, y2), ... and con- 


nects them with lines. 
ListLinePl ot[ list, list, ...] plots multiple lines through points defined by list;, 
list, ... 


ListPlot[¢y1l, y2, ... 1] plots points whose y-coordinates are y1, y2,... Thex-coordinates 
are taken to be the positive integers, 1, 2, .. . 

ListPlot[¢¢xl, y1}, «x2, у2},..., ] plots the points (x1, y1), (x2, y2),... 

Li stPl ot3D[ {2}, 2,,,...}, op Z2» aos 2] generates a three-dimensional sur- 


face based upon a given array of heights. The x- and y-coordinate values for each data point are taken 
to be consecutive integers beginning with 1. 


ListPlot3D[ €, yi, Zi), {Xz yo 2,},...}] generates a three-dimensional surface 
based upon a given array of heights 2, which are the z-coordinates corresponding to the points 
(ха, Yi} 


Li stPoi ntPlot3D[list] plots the points in list in a three-dimensional box. list must be a list of 
sublists, each of which contains three numbers, representing the coordinates of points to be plotted. 
ListSurfacePlot3D[list] creates a three-dimensional polygonal mesh from the vertices 
specified in list, which should be of the form { { {x11, у, 211}, (x12,y12,212),...], 
11х21,у21,%21%,1х22,У22;%225;2% ah pe es 

Log[x] represents the natural logarithm. If a base, b, she than e is required, the appropriate form 
isLog[b, x]. 
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Logi cal Expand[ expression] applies the distributive laws for logical operations to expression 
and puts it into disjunctive normal form. 

LUBackSubstitution[ data, b] uses the output of LUDecomposi ti on | matrix] to solve 
the system matrix.x = b. 

LUDecompositi on[ matrix] finds the LU decomposition of matrix. 

Mani pul ate[ expression, £k, m, n, i »] works very much the same way as Ani mat e except 
it allows the user to control the parameterdirectl y with a slider. 

Mani pul ate[ expression, «k1, ml, nl, i1}, {k2, m2, n2, i25, ...] allows multiple 
parameters which can be independently controlled. 

Matri xForm[list] prints double nested lists as a rectangular array enclosed within parentheses. 
The innermost lists are printed as rows. Single nested lists are printed as columns enclosed within 
parentheses. 

Matri xPower[ matrix, n] computes the nth power of matrix. 

Ma x [ list] returns the largest number in list. 

Mi n[ list] returns the smallest number in list. 

Mi nors[ matrix] produces a matrix whose (i, j)th entry is the determinant of the submatrix obtained 
from matrix by deleting row n - i + 1 апа column n - j +1. 

Mi nors[ matrix, К] produces the matrix whose entries are the determinants of all possible k x k 
submatrices of matrix (matrix need not be square). 

Mi nus[a] produces the additive inverse (negative) of a. Mi nus[ a] is equivalentto - a. 

Mod[ m, n] returns the remainder when m is divided by n. 

Module[{varl, var2, ...}, body] defines a module with local variables var1, var2,... 

Modul еГіуагі = vl, var2 = v2, .. 3, body] defines a module with local variables үаг1, 
var2,... initialized to v1, v2, . . . , respectively. 

N[ expression] gives the numerical approximation of expression to six significant digits (M athematica's 
default). 

N[ expression, n] attempts to give an approximation accurate to n significant digits. 

NDSol ve[ equations, y, {x, xmi n, xmax}] givesanumerical approximation to the solution, y, 
of the differential equation with initial conditions, equations, whose independent variable, x, satisfies 
xmin < x < xmax. 

Nest[f, expression, n] applies £ to expression successively n times. 

NestList[f, expression, n] applies £ to expression successively n times and returns a list of 
all the intermediate calculations from o to n. 


NI ntegrate[f[x], «x, a, b+] computes an approximation to the value of ІШ dx using 
strictly numerical methods. i 
Ni ntegrate[f[x, y], «x, xmin, xmax}, {y, ymin, ymax}] returns a numerical 


ymax 


approximation of the value of the double integral Lo Jn f (x y) dy dx. 
Ni ntegrate[f[x, y, 2], £x, xmin, xmax}, {y, ymin, ymax}, £z, zmi n, 2 ах} ] 
returns a numerical approximation of the value of the triple integral 21. d f(x, y, z) dz dy dx. 


min J ymin є 2тіп 


Nor m[ v] returns the Euclidean norm of v. || v|| = Iv? ; 
i=1 

Nor mal [ series] returns a polynomial representation of the SeriesData object series which can 

then be evaluated numerically. The о [x]^ term is omitted. 

Nor mal i ze[ vector] converts vector into a unit vector. 

Nor mal i ze[ vector, f] converts vector into a unit vector with respect to the norm function £. 

Not[p] or! рог -p is True if pis False and False if pis True. 

NProduct, returns numerical approximations to each of the products described inProduct. 

NRoots[lhs =rhs, variable] produces numerical approximations of the solutions of a polynomial 

equation. 

NSol ve[ equations, variables] solves equations numerically for variables. 

NSol ve[ equations, variables, n] solves equations numerically for variables to n digits of precision. 

NSum, returns numerical approximations to each of the sums described in S u m. 


APPENDIX 


Nul 1 Space[a] returns the basis vectors of the null space of a. 

Numerator[fraction] returns the numerator of fraction. 

Opacity[a] specifies the degree of transparency of a graphics object. The value of a must be 
between 0 and 1, with 0 representing perfect transparency and 1 representing complete 
Opaqueness. 

Or[ p,q] огр | [| q orp vq is True if porq (or both) are True; False otherwise. 
Orthogonal і ze[ vectorlist] uses the Gram-Schmidt method to produce an orthonormal set of 
vectors whose span is vectorlist. 

Orthogonal i ze[ vectorlist, f] produces an orthonormal set of vectors with respect to the inner 
product defined by ғ. 

Outer[Ti mes, v1, v2] computes the outer product of v1 and v2. 

PaddedFor m[ expression, «n, f+] prints the value of expression leaving space for a total of 
n digits, £ of which are to the right of the decimal point. The fractional portion of the number is 
rounded if any digits are deleted. 

PaddedFor m[ expression, n] prints the value of expression leaving space for a total of n digits. 
This form of the command can be used for integers or real number approximations. The decimal 
point is not counted as a position. 

ParametricPlot[«x[t], y[t]}, «t, tmin, tmax}] plotsthe parametric equations x = x(t), 
y = y(t) over the interval tmin < t < стах. 

ParametricPlot[ccx1[t], yl[t]o, «x2[t], y2[t] 2, ... >}, tt, tmin, tmaxj] 
plots several sets of parametric equations over tmin < t < стах. 
ParametricPlot3D[cx[t], y[t], z[t]», «t, tmin, tmax}] plots a space curve in 
three dimensions for tmin < t € tmax. 

Parametri сРІ ot3D[ «x[s, t], y[s, t], z[s, t] », «s, smin, ѕ мах}, «t, tmi n, t тах} ] 
plots a surface in three dimensions. 

Part[list, k] orlist[[k]] returnsthe kth element of 1ist. 

Part[list, -k] orlist[[-k]] returns the kth element from the end of list. 
Part[list, m n] orlist[[m, n]] returns the nth entry of the mth element of 1ist, provided 
list has depth of at least 2. 

Partition[list, КІ converts list into sublists of length k. If list contains k n + mele 
ments, where m « k, Parti ti on will create n sublists and the remaining m elements will be 
dropped. 

Partition[list, k, d] partitions list into sublists of length к offsetting each sublist from the 
previous sublist by à elements. In other words, each sublist (other than the first) begins with the 
d + 1st element of the previous sublist. 

Pi or zis the ratio of the circumference of a circle to its diameter. 

Pi eChart[ datalist] draws a simple pie chart. datalist is a list of numbers enclosed within 
braces. 

Pi eChart[ {datalistl, datalist2, ... »] draws a pie chart containing data from multiple data 
Sets. Each data set is a list of numbers enclosed within braces. 

Plot[f[x], tx, xmi п, xmax} plotsatwo-dimensional graph of the function £ [x] on the interval 
xmin <x < xmax. 

Plot[ <f[x], g[x]}, €x, хті п, xmax}] plots the graphs of £ [x] and g [x] from xmin 
to xmax on the same set of axes. This command can be generalized in a natural way to plot three or 
more functions. 

Plot3D[f[x, y], 4x, xmin, xmax}, «y, ymin, ymax}] plotsathree-dimensional graph 
of the function £ [х,у] above the rectangle xmin < x < xmax, ymin < у < ymax. 
Plot3D[«f1[x, y], f2[x, yl, ...», «x, xmin, хтах}, {y, ymin, ymax}] plots 
several three-dimensional surfaces on one set of axes. 

Plus[a, b,...] computes the sum of a,b,...Plus[a, b] is equivalenttoa + b. 
PolarPlot[f[0], £0, Өш, 0,21 generates a plot of the polar equation r = f(0) as Ө varies 
from Omin to Omax: 

PolarPlot[«f1[60], f2[0],...2, £0, Onin» Өт, plots several polar graphs on one set of 
axes. 

Polynomial GCD[ pl, p2,...] computes the greatest common divisor of the polynomials p1, 
р2,... 
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Polynomial LCM[ p1, p2,...] computes the least common multiple of the polynomials p1, 
Оез 

Pol ynomi al Q[ expression, variable] yields True if expression is а pol ynomial in variable, and 
False otherwise. 

Polynomial Quoti ent[p, s, x] gives the quotient upon division of p by s expressed as a 
function of x. Any remainder is ignored. 

Pol ynomi al Remai nder[p, s, x] returns the remainder when p is divided by s. The degree 
of the remainder is less than the degree of s. 


= Power[a, b] computes а>, Power[a, b, c] produces а>“, etc. 


PowerExpand[ expression] expands nested powers, powers of products and quotients, roots of 
products and quotients, and their logarithms. 


PreDecrement[x] or-- x decreases the value of x by 1 and returns the new value of x. 
Prel ncrement[x] or++ x increases the value of x by 1 and returns the new value of x. 
Prepend[list, x] returns list with x inserted to the left of its first element. 
Pri me[ п] returns the nth prime. 
Pri meQ[ expression] yields True if expression is a prime number, and yields False otherwise. 
Pri nt[ expression] prints expression, followed by a line feed. 
Ргі пі [ ехргеѕѕіоп1, expression2, . . .] prints ехргеѕѕіоп1, expression2, .. . followed by a single 
line feed. i max imax 
Product[a[i], ci, i max] or [ [ali] evaluates the product Па. 

i=1 i max і-1 imax 
Product[a[i], ci, imin, imax}] or [] ali] evaluates the product [ 8. 


Product[a[i], tci, i mi n, imax, increment 3] evaluates the product Пг in steps of 
increment. i max j max Finn imax jmax 
Product[a[i, j], <i, imax}, cj, ј тах» or [T [Tali ; |1 evaluatesthe product [ [ []a,,;. 
ігі jel іні j=l 
imax ј тах 


Product[a[i,j], «i, i m n, imax}, cj; jm n, ј тах] or [[ [J ali, j] evaluates 


imax |тах i =i min j=j min 
the product П [П a,,. 
i=imin j=jmin 
Product[a[i,j],¢i,imin,imax,i_increment}, {j,j min, ј max, j_increment}] 


Imax jmax 
evaluates the product П П a; j in steps of i increment and j increment. 
Projection[ vectorl, vector2] returns the orthogonal projection of vector1 onto vector2. 
Projection[Vvectorl, vector2, f] returns the orthogonal projection of vector1 onto vector2 with 
respect to an inner product defined by f. 
Quotient[m, n] returns the quotient when m is divided by n. 
Random[ ] gives a uniformly distributed, real, pseudorandom number in the interval [0, 1]. 
Random[type] returns a uniformly distributed pseudorandom number of type type, which is either 
Integer, Real, or Complex. Its values are between 0 and 1, in the case of Integer or Real, 
and contained within the square determined by 0 and 1+ i, if type is Complex. 
Random[type, range] gives a uniformly distributed pseudorandom number in the interval or rectangle 
determined by range. range can be either a single number or a list of two numbers such as (a,b) 
or {a+bI, c+dT}.A Single number m, is equivalent to {0, т). 
Random[type, range, n] gives a uniformly distributed pseudorandom number to n significant 
digits in the interval or rectangle determined by range. 
RandomCompl ex[] returns a pseudorandom complex number lying within the rectangle whose 
opposite vertices are 0 and 1-1. 
RandomCompl ех[2 тах] returns a pseudorandom complex number that lies in the rectangle 
whose opposite vertices are 0 and zmax. 
RandomCompl ex[ {2 ті n, zmax}] returns a pseudorandom complex number that lies in the 
rectangle whose opposite vertices are zmin and zmax. 
RandomCompl ex[ {2 ті n, zmax}, n] returns a list of n pseudorandom complex numbers each 
of which lies in the rectangle whose opposite vertices are zmin and zmax. 
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RandomCompl ex[ «z mi n, 2 тах}, «m, n}] returns an m x n list of pseudorandom complex 
numbers each of which lies in the rectangle whose opposite vertices are zmin and zmax. 
Random! nteger[ | returns 0 or 1 with equal probability. 

Randoml nteger[ i max] returns a pseudorandom integer between о and imax. 

Randoml nteger[ «i mi n, i max}] returns a pseudorandom integer between imin and imax. 
Random! nteger[ {і mi n, i max}, n] returns alist of n pseudorandom integers between xmin 
and xmax. This extends in a natural way to lists of higher dimension. 

Randoml nteger[ti mi n, і тах}, tm, n3] returns an m x n list of pseudorandom integers 
between xmin and xmax. This extends in a natural way to lists of higher dimension. 

RandomPri me[n] returns a pseudorandom prime number between 2 and n. 

RandomPri me[ «m, n3] returns a pseudorandom prime number between m and n. 
RandomPri me[ «m, n}, К] returns a list of k pseudorandom primes, each between m and n. 
RandomReal | | returns a pseudorandom real number between 0 and 1. 

RandomReal [ xmax] returns a pseudorandom real number between 0 and xmax. 
RandomReal[txmin, xXmax}] returns a pseudorandom real number between xmin and 
xmax. 

RandomReal [ «xmi n, xmax?, n] returnsalistof n pseudorandom real numbers between xmin 
and xmax. 

RandomReal [ «xmi n, xmax?, «m, n3] returnsan mxn list of pseudorandom real numbers 
between xmin and xmax. This extends in a natural way to lists of higher dimension. 
RandomSampl e[ te,, e;,. . . , @,}] gives a pseudorandom permutation of the list of e,. 
RandomSampl e[ {e е,,. . +, е„}, КІ givesa pseudorandom sample of k of the e,. 
Range[n] generates a list of the first n consecutive integers. 

Range[m, n] generates a list of numbers from mto n in unit increments. 

Range[m, n, d] generates a list of numbers from m through n in increments of d. 

Reduce[ equations, variables] simplifies equations, attempting to solve for variables. If equations is an 
identity, Reduce returns the value True. If equations is a contradiction, the value False is returned. 
Remove[ symbol] removes symbol completely. symbol will no longer be recognized unless it is 
redefined. 


ReplacePart[list, x, n] replaces the object in the nth position of list by x. 
ReplacePart[list, x, -n] replaces the object in the nth position from the end by x. 
ReplacePart[list, i — new] replaces the ith part of list with new. 

ReplacePart[list, ti, — new, і, — new,..., i, — new, ] replaces parts i,, 
i,,...,1, with new, new,,..., new,, respectively. 

ReplacePart[list, {{1,},{1,},...,{1,„}} — new] replaces all elements in positions i,, 
i,,...,i,With new. 


ReplacePart[list, «i, j > — new] replaces the elementin position j of the ith outer level entry 
with new. 


ReplacePart[ list, {i,j} — new, (i, j;) ~nmew,...,{i,, jn} — new, replaces 
the entries in positions j, of entry i, in the outer level with new,. 
ReplacePart[ list, (ti, ji}, fi.) js, Gu, j »} ә new] replaces all entries in 


positions 3, of entry i, in the outer level with new. 

Rest[list] returns 1ist with its first element deleted. 

Reverse| list] reverses the order of the elements of list. 

RevolutionPlot3D[f[x], «x, xmin, xmax}] plots the surface generated by rotating the 
сиуе2-Қх), xmin € X € xmax, completely around the z-axis. 

RevolutionPlot3D[f[x], «x, xmin, xmax}, 10, Өтіп, Өтах}] plots the surface gen- 
erated by rotating the curve z = f(x) , xmin € X € xmax, around the z-axis for Өтіп < 0 € Omax 
where Ө is the angle measured counterclockwise from the positive x-axis. 

RevolutionPl ot 3D[¢f[t], g[t]}, tt, tmin, tmax}] generates a plot of the surface 
generated by rotating the curve x = f(t), z = g(t), tmin < t < tmax, completely around the z-axis. 
RevolutionPlot3D[ «f[t],g[t] s, «t, tmin, tmax}, 10, Өтіп, Omax}] generates a 
plot of the surface generated by the curve x = f(t), z = g(t), tmin € t < tmax, around the z-axis for 
Өтіп < Ө < 0max where Ө is the angle measured counterclockwise from the positive x-axis. 


APPENDIX 


Revol uti onPl ot3D[z[r, Ө], {r, rmi п, rmax}] generates a plotof the surface z = z (г, Ө), 
rmin < r < rmax, described in cylindrical coordinates. 

RevolutionPlot3D[z[r, Ө], tr, rmin, rmax}, 10, Өтіп, Өтах}] generates а plot 
of the surface z= z (r, Ө), rmin <r < rmax, Өтіп < Ө < Omax. 

Roots[lhs =rhs, variable] produces the solutions of a polynomial equation. 

RotateLeft[ list] cycles each element of list one position to the left. The leftmost element is 
moved to the extreme right of the list. 

RotateLeft[list, n] cycles the elements of list precisely n positions to the left. The leftmost n 
elements are moved to the extreme right of the list in their same relative positions. If n is negative, 
rotation occurs to the right. 

RotateRi ght [list] cycles each element of list one position to the right. The rightmost element is 
moved to the extreme left of the list. 

RotateRi ght[ list, n] cycles the elements of list precisely n positions to the right. T he rightmost 
n elements are moved to the extreme left of the list in their same relative positions. If n is negative, 
rotation occurs to the left. 

RotateShape[object, ф,Ө, y] rotates object using the Euler angles ф, Ө, and w. 

Round[x] returns the integer closest to x. If x lies exactly between two integers (e.g., 5.5), 
Round returns the nearest even integer. 

RowReduce[ matrix] reduces matrix to reduced row echelon form. 

SeedRandom[n] initializes the random number generator using n as a seed. This guarantees that 
Sequences of random numbers generated with the same seed will be identical. 

SeedRandom[ | initializes the random number generator using the time of day and other attributes 
of the current M athematica session. 

Series[f[x], tx, a, n3] generatesaSeri esDat a object representing the nth degree Taylor 
polynomial of f(x) about a. 

Seri esCoefficient[ series, n] returns the coefficient of the nth degree term of a SeriesData 
object. 

Show[ g1, g2, .. .] plots several graphs on a common set of axes. 

Si gn[x] returns the values - 1, 0, 1 depending upon whether x is negative, 0, or positive, respectively. 
Si mplify[expression] performs a sequence of transformations on expression, and returns the 
simplest form it finds. 

Si n, Cos, Tan, Sec, Csc, and Cot respectively represent the six basic trigonometric functions, 
sine, cosine, tangent, secant, cosecant and cotangent. 

Si nh, Cosh, Tanh, Sech, Csch, andCoth represent the six hyperbolic functions. 

Sol ve[ equations, variables] attempts to solve equations for variables. 

Sor t [ list] sorts the list list in increasing order. Real numbers are ordered according to their numerical 
value. Letters are arranged lexicographically, with capital letters coming after lowercase. 
SphericalPlot3D[ p, д Ө] generates a complete plot of the surface whose spherical radius, р, 
is defined as a function of ф and Ө. 

SphericalPlot3D[[ о tà ómin, gmax}, {6 Өтіп, Omax}] generates a plot of the 
surface whose spherical radius, p, is defined as a function of ф and Ө over the intervals omin < ф < 
фтах, Omin < 0 < Өтах. 


Sqrt[x] or Vx gives the non-negative square root of x. 

Stri ngDrop[ string, n] returns string with its first n characters dropped. 

Stri ngDrop[ string, - n] returns string with its last n characters dropped. 
StringDrop[string, {n}] returns string with its nth character dropped. 

StringDrop[string, {-n}] returns string with the nth character from the end dropped. 
StringDrop[string, «m, n1] returns string with characters m through n dropped. 
Stringlnsert[stringl, string2, n] yields a string with string2 inserted starting at position n 
in stringl. 

Stringlnsert[stringl, string2, - n] yields a string with string2 inserted starting at the nth 
position from the end of string. 

Stringl nsert[ string], string2, «n1, п2,... МІ inserts a copy of string2 at each of the positions 
n1,n2,... of stringl. 
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StringJoin[stringl, string2, ...] orstringl <> string2 <>... concatenates two or more 
strings to form a new string whose length is equal to the sum of the individual string lengths. 
StringLength[ string] returns the number of characters in string. 

StringPositi on[ string, substring] returns a list of the start and end positions of all occurrances 
of substring within string. 

StringReplace[string, stringl — newstringl] replaces stringl by newstringl whenever it 
appears in string. 

StringReplace[string, {stringl — newstringl, string2 — newstring2, .. .+] replaces string] 
by newstringl, string2 by newstring2, . . . whenever they appear in string. 
StringReverse[string] reverses the characters in string. 

StringTake[ string, n] returns the first n characters of string. 

Stri ngTake[ string, - n] returns the last n characters of string. 

StringTake[string, {n}] returns the nth character of string. 

StringTake[string, {- n3] returns the nth character from the end of string. 
StringTake[string, «m, п} ] returns characters m through n of string. 

Subsets[list] returns a list containing all subsets of list, including the empty set, i.e., the power 
set of list. 

Subtract[a, b] computes the difference of a and b. Only two arguments are permitted. 
Subtract[a, b] isequivalenttoa - b. 

SubtractFrom[x, y] orx -= y subtracts y from x and returns the new value of x. 


Sum[a[i], ti, imax}] or X a[i] evaluates the sum Ya. 


ігі і ia imax 


Sum[a[i], ti, imin, imax}] or У ali] evaluatesthesum Уа. 


Sum a[i], ti, i min, i тах, increment] evaluatesthesum У a, instepsof increment. 


Summation continues as long as i < imax.  - ИГ, mE 
Sum[a[i, j], ti, imax}, cj, j max}] or Ў Sali, 11 evaluates the sum Y Sa. 
Sum[a[i,j], ti, imin, i max», {j,j mi n, j maxi] or bi y ali, j] evaluates the sum 
imax |тах isimin j=j min 

i-imin жас 


Sum[a[i, jl, ¢i,imin,imax,i_increment}, tj, ј ті п, ј max, | increment] 
imax јтах 


evaluates thesum У, У, a, instepsof i increment and j increment. 


i=imin j=jmin 
SurfaceOf Revolution[f[x], «x, xmin, xmax}] generates the surface of revolution 
obtained by rotating the curve 7 = f(x) about the z-axis. 
SurfaceOf Revolution[f[x], «x, xmin, xmax?, (0, Өтіп, Өтах}] generates the 
surface of revolution obtained by rotating the curve z = f(x) about the z-axis, for Өтіп < Ө < Omax. 
SurfaceOfRevolution[ «x[t], 2141», «t, tmin, tmax}] generates the surface of 
revolution obtained by rotating the curve defined parametrically by x = x(t), z = z(t), about the 
Z-axis. 
Tabl e[ expression, {n}] generates a list containing n copies of the object expression. 
Tabl e[ expression, tk, n+] generates a list of the values of expression as к varies from 1 to n. 
Tabl e[ expression, (К, m, n}] generates alist of the values of expression as к varies from m to n. 
Tabl e[ expression, tk, m, n, d}] generates a list of the values of expression as к varies from 
mto n in steps of а. 
Tabl e[ expression, {m}, {n}] generates a two-dimensional list, each element of which is the 
object expression. 
Table[expression, ti , m, n;}, £j , m, п,}] generates a nested list whose values are expression, 
computed as j goes from m; to n, and as i goes from m, to n,. The index j varies most rapidly. 
TableForm[list] prints list the same way as Matri xFor m except the surrounding parentheses 
are omitted. 
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TableForm[list, options] allows the use of various formatting options in determining the appear- 
ance of a table. 

Таке[ 115+, n] returns a list consisting of the first n elements of list. 

Take[list, -n] returnsalist consisting of thelast n elements of 1ist. 

Take[list, ¢n}] returns a list consisting of the nth element of list. 

Take[list, ¢-n}] returns a list consisting of the nth element from the end of list. 
Take[list, (m, ny] returns a list consisting of the elements of 1ist in positions m through n 
inclusive. 

Take[list, «m, n, ky] returnsalist consisting of the elements of 1ist in positions m through 
n in increments of k. 

Ti mes[a, b,...] Computes the product of a, b, ... Ti mes[a, b] is equivalenttoa * b. 

Ti mesBy[x, y] orx * = y multiplies x by y and returns the new value of x. 

Ti mi ng[ expression] evaluates expression, and returns a list of time used, in seconds, together with 
the result obtained. 

Together[expression] combines the terms of expression using a common denominator. A ny 
common factors in the numerator and denominator are cancelled. 

Total [list] givesthe sum of the elements of list. 

Tr [ matrix] computes the trace of matrix. 

Traditional For m[ expression] prints expression in a traditional mathematical format. 
Transl ateShape[ object, «x, y, z+] translates object by the vector (x, у, 221. 
Transpose[ matrix] computes the transpose of matrix. 

Tri gExpand[ expression] expands expression, splitting up sums and multiples that appear in 
arguments of trigonometric functions and expanding out products of trigonometric functions into 
sums and powers, taking advantage of trigonometric identities whenever possible. 

Tri gFactor[expression] converts expression into afactored expression of trigonometric functions 
of a single argument. 

Tri gReduce[ expression] rewrites products and powers of trig functions in expression as 
trigonometric expressions with combined arguments, reducing expression to a linear trig function 
(i.e., without powers or products). 

Tri gToExp[ expression] converts trigonometric and hyperbolic functions to exponential form. 
Unequal [x, y] orx! = y orx zy is True if and only if x and y have different values. 

Uni on[ 11541, list2] combines lists listl and list2 into one sorted list, eliminating any duplicate 
elements. A Ithough only two lists are presented in this description, any number of lists may be used. 
Asa special case, Uni on[ list] will eliminate duplicate elements in list. list1 L listis equivalent to 
Uni on[ list, list2]. 

Uni tStep[x] returns a value of Oif x «O and 1 if x 2 0. 

Variabl es[ polynomial] gives a list of all independent variables in polynomial. 
VectorPlot[4Fx, Fy}, «x, xmin, хтах}, (y, ymin, ymax}] produces a vector field 
plot of the two-dimensional vector function F, whose components are Ех and Fy. 

While[ condition, expression] evaluates condition, then expression, repetitively, until condition 
IS False. 

Wi reFrame[ object] shows all polygons used in the construction of object as transparent. It may 
be used on алу Graphics3D object that contains the primitives Polygon, Line, and Point. 
Xor[p, q] is True if p or q (but not both) are True; False otherwise. 
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1,24 Array,63, 293 

12,43 ArrayFlatten,307 

%,9 AspectRatio,95 

&&, 43 Assignment, 40 

oo, 22 Assumptions, 230 

A, 43 Axes, 104, 134, 269 

v, 43 AxesEdge, 135 

0,77 AxesLabel , 102 

C, 77 AxesOri gi п, 97 

a, 43 

-»1 BarChart,123 

* 2,37 BarChart3D, 156 

1.,41 Bar Origi n, 124, 156 

15,40, 52, 53 Вагбрасі пд, 123, 156 

| 2,37 Bessel functions, 181, 268 

11,9 Bessel) , 181, 268 

т, 40, 52 Bessel Y, 268 

72,77,8 Block diagonal matrix, 309 

(1,5 Boundary value problem, 271 

{},5 Boxed, 134 

[ 1,4 BoxRatios,134 

[[ 11,66 BoxStyle,135 

^ (caret), 7 

` (backquote character), 1 Calculus 

|1,43 differential, 202-225 

-,-,%,/,7 integral, 226-244 

%-,--,37 multivariate, 245-265 

+=, 37 Calendar’ ,19 

<>, 43 Cancel , 192 

<,>, 43 Cardioid, 114, 120, 261 

<=,>=, 43 CartesianProduct, 77 

=, 40 Catalan, 22 

==, 43 Catenary, 278-279 

m, 22 Cauchy Principal Value, 230 

ж, 43 Cayley-Hamilton theorem, 325 

53 Ceiling,26 

e, 5, 22 Cell, 12 

і,5 Center of mass, 259, 264-265 
CharacteristicPol ynomi al , 323 

$Context, 335 CharacterRange, 64 

$Context Path, 336 Characters, 64 
ChartLabels,124, 156 

Aborting a command, 3-4 ChartLayout, 123, 156 

Abs, 24 ChartStyle, 123, 125, 156 

Absol uteDashi ng, 99 ChebyshevT, 110 

AbsolutePointSize, 120 Chebyshev polynomials, 110 

AbsoluteThickness, 99 Circle,111 

Accounti ngFor m, 34 Clear,8 

Accumulate, 61 CMYKCol or, 100 

AccuracyGoal , 178, 214, 228, 281 Coefficient, 186 

AddTo, 37 CoefficientList,186 

AffineShape, 165 Cofactor, 306 

All , 296 Collect, 188 

And, 43 Col or Data, 102 

Ani mate, 129-130 Color Selector, 101 

Animation, 129-132 Col umnF orm, 86 

Antiderivatives, 226-228 Combi natori ca' , 19, 77, 79 

Apart, 192 Compl ement , 76 

Append, 69 Compl exExpand, 172 

ArcCos, 29 Composition,57 

ArcCosh, 29 Compound Interest, 89-90 

ArcCot, 29 Conchoid of Nicomedes, 113 

ArcCoth, 29 Cone, 163-164 

ArcCsc, 29 Constants, 256 

ArcCsch, 29 ConstantArray, 296 

ArcSec, 29 Context, 335 

ArcSech, 29 Contexts, 335-336 

ArcSin, 29 ContourLines, 148 

ArcSinh, 29 ContourPl ot, 148 

ArcTan, 29 Cont our Pl ot 3D, 150 

ArcTanh, 29 Cont ours, 148, 150, 152 


Arithmetic operations, 36-38 ContourShadi ng, 148 


Contour Styl e, 113-114 
Control Type, 113 
Cos, 28 

Cosh, 29 

Cot, 28 

Coth, 29 

Create Table/Matrix, 80, 294 
Critical number, 212 
Critical point, 249 

Cross, 299 

Cross product, 299 
Csc, 28 

Csch, 29 

Cuboid, 162 

Cycloid, 116 

Cylinder, 163-164 


D, 205, 245 
DampingFactor, 180 
Dashing, 98 
DataRange, 149, 151-152 
Day Of Week, 19 
Days Bet ween, 19 
De М organ's laws, 44 
Decrement, 37 
Degree, 22, 28 
Delete, 68, 308 
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DensityPlot, 148 
Depth, 71 
Derivative, 206, 246 
Derivatives 
ordinary, 205-212 
partial, 245-249 
Det , 301 
Diagonalization, 326 
Di agonal Matrix, 80, 293 
Differential equations 
analytical solutions, 266-280 
Laplace transforms, 284-292 
numerical solutions, 280-283 
Di git Bl ock, 34 
DiracDelta, 287 
Direction, 202 
Di sk, 111 
Di vi de, 36 
Di vi деву, 37 
Division Algorithm, 27 
Do, 47 
Documentation Center, 13 
Doubl eHel i x, 163-164 
Drop, 68, 308 
DSol ve, 266 
Dt, 255 


Е, 5, 22 
Ei gensystem, 323 
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Ei genvectors, 323 
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El i mi nate, 172 
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differential, 266- 292 
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Euclidean 
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norm, 302, 320 
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ExpToTri g, 197 
Extension, 188 

Extraneous solution, 173 
Extreme Value Theorem, 212 
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Factor,42 
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FactorInteger, 27 
FactorTerms, 188 
Fibonacci ,26 
Filling, 106, 120 
Fi ndMaxi mum, 214 
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Fi ndRoot , 177, 180 
First,66 
Flatten,72 
FlattenAt,72 
Floor,26 
Folium of Descartes, 113 
For,48 
Fractional Part, 26 
Frame, 104, 269 
Framed,57-58 
FrameTicks,105 
Fresnel sine integral, 226 
Front end, 2 
Full Form, 37, 280 
Full Si mplify,200 
Function, 333 
FunctionApproxi mations’ ,181 
Function Navigator, 13 
Functions 
built-in, 23-36 
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Fundamental Theorem of Arithmetic, 27 
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GeneratedParameters, 267 
Gol denRatio, 22,95 
Gradient, 251 
Gram-Schmidt method, 320 
Graphics, 111 
Graphics 
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Graphics3D, 162 
GraphicsArray, 94 
GrayLevel , 98 
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